extraire des données d'un tableau

Sub Macro1()
Dim dl As Integer
Dim cel As Range
Dim dest As Range
 
Application.ScreenUpdating = False
With Sheets("Feuil2")
    dl = .Range("B65535").End(xlUp).Row + 1
    .Rows("3:" & dl).ClearContents
End With
With Sheets("Feuil1")
    dl = .Range("B65536").End(xlUp).Row
    For Each cel In .Range("H3:H" & dl)
        If cel.Value = Date Then
            Set dest = Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0)
            .Range(Cells(cel.Row, 2), Cells(cel.Row, 11)).Copy dest
        End If
    Next cel
End With
Sheets("Feuil2").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Sub Macro1()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim x As Integer 'déclare la variable x (incrément de ligne)
Dim dest As Range 'déclare la variable dest (DESTination)
 
Application.ScreenUpdating = False 'masque les changements à l'écran
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    dl = .Range("B65535").End(xlUp).Row + 1 'définit la dernière ligne éditée de la colonne B
    .Rows("3:" & dl).ClearContents 'efface les anciennes données
End With 'fin de la prise en compte l'onglet "Feuil2"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    dl = .Range("B65536").End(xlUp).Row 'définit la dernière ligne éditée de la colonne B
    For x = dl To 3 Step -1 'boucle inversée de la dernière ligne à la troisième
        If Cells(x, 8).Value = Date Then 'condition : si la date de cellule de la colonne H est la date d'aujourd'hui
            Set dest = Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0) 'définit la cellule de destination
            .Range(.Cells(x, 2), .Cells(x, 11)).Copy dest 'copie et colle les données de la ligne dans la cellule de destination
            .Range(.Cells(x, 2), .Cells(x, 11)).Delete shift:=xlShiftUp 'supprime les données de la lignes
        End If 'fin de la condition
    Next x 'prochaine ligne (en remontant) de la boucle inversée
End With 'fin de la prise en compte l'onglet "Feuil1"
Sheets("Feuil2").Select 'affiche l'onglet "Feuil2"
Range("A1").Select 'célectionne la cellule A1
Application.ScreenUpdating = True 'affiche les changement à l'écran
End Sub