Application.ScreenUpdating = False 'accélère l'éxecution et évite le scintillement de l'écran
Dim C As Date, L As Long, Lmax As Long 'déclarations
With Sheets("chantier posé")
Lmax = .Cells(Rows.Count, "D").End(xlUp).Row 'numéro de la dernière ligne saisie
For L = Lmax To 2 Step -1 'boucle en partant du bas
C = CDate(.Cells(L, "C")) 'date de la ligne en cours
C = DateSerial(Year(C), Month(C) + 1, Day(C))
If C < date Then .Rows(L).Delete 'suppression de la ligne complète
Next L