Lier 2 feuilles excel

Sub Essai()

Sheets("Feuil1").Select
For h = 2 To Range("A1").End(xlDown).Row '''''
         If Cells(h, 2).Value = "" Then Exit Sub
          If Cells(h, 2).Value < Date Then
        Cells(h, 2).EntireRow.Delete
         Exit For
        Else
         Cells(h + 1, 2).Select
         End If
         Next h
Sheets("Feuil2").Select
For i = 2 To Range("A1").End(xlDown).Row '''''
         If Cells(i, 2).Value = "" Then Exit Sub
          If Cells(i, 2).Value < Date Then
        Cells(i, 2).EntireRow.Delete
        Exit Sub
         Exit For
        Else
         Cells(i + 1, 2).Select
         End If
         Next i
End Sub

Sub Essai()

Sheets("Feuil1").Select
For h = 2 To Range("A1").End(xlDown).Row '''''
         If Cells(h, 2).Value = "" Then Exit Sub
          If Cells(h, 2).Value < Date Then '''''''''''''''''''''''''''''''''' ici la cellule fait référence à la date actuelle
         Cells(h, 2).EntireRow.Delete''''''''''''''''''''''''''''''''''''''''''ici la ligne est donc supprimée
         Exit For
        Else
         Cells(h + 1, 2).Select
         End If
         Next h

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sheets("Feuil2").Select
For i = 2 To Range("A1").End(xlDown).Row '''''
         If Cells(i, 2).Value = "" Then Exit Sub
          If Cells(i, 2).Value < Date Then'''''''''''''''''''''''''''''''''''''''''Comme pour la feuille1, les critères doivent être les '''''''''''''mêmes sinon je ne vois pas l'utilité de supprimer une ligne identique dans cette feuille 2

        Cells(i, 2).EntireRow.Delete ''''''''De ce fait, la même ligne est supprimée 
        Exit Sub
         Exit For
        Else
         Cells(i + 1, 2).Select
         End If
         Next i
End Sub

Sub Macro2()

    Range("B1:J1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Tableau des dettes").AutoFilter.Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Tableau des dettes").AutoFilter.Sort.SortFields.Add _
        Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Tableau des dettes").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub