Sub maxg35()
    
    Application.ScreenUpdating = False
    
'Numéro de la 1ere ligne. A quelle ligne commence ton tableau
    LineDep = 2
'On determine la derniere ligne en partant du bas de la colonne A et en remontant. _
Changer la colonne si ton tableau commence a une autre colonne
    DerLine = Range("A65536" ).End(xlUp).Row
 
'On boucle pour detecter si les valeurs sont = à aujourdhui
    For x = LineDep To DerLine
    
'Je pars du principe que tes dates sont en colonne1 (A) à modifier en consequence donc.
'Si la date de la cellule en cours = aujourdhui
        If Cells(x, 1).Value = Date Then
'On va se créer des references pour sélectionner les lignes
            If RefLine = "" Then
                RefLine = x & ":" & x
            Else
                RefLine = RefLine & "," & x & ":" & x
            End If
        End If
    Next x
'on selectionne nos lignes, grace aux references créé en amont
    Range(RefLine).Select
'on copie
    Selection.Copy
'On créé une nouvelle feuille, ou tu peux selectionner une autre feuille comme avec ce _
qui est marqué avec des etoiles. Pense a mettre le .add en commentaire a ce moment.
    '*Sheets("suivi hebdo" ).Select
    Sheets.Add
'on colle
    ActiveSheet.Paste
    Range("A1" ).Select
    
    Application.ScreenUpdating = False
 
End Sub