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