Re : trier par date et suprimer la date J-30 en VBA
bonjour Deen
si la date colonne E- date>= à 30 la ligne est supprimée
Sub DeleteLigne()
Dim DerL As Long, L As Long, Diff As Variant
With Worksheets("TP_FT")
DerL = .Range("E2000").End(xlUp).Row
For L = DerL To 4 Step -1
Diff = .Cells(L, 5) - Date
If Diff >= 30 Then .Range("A" & L & ":I" & L).Delete Shift:=xlShiftUp 'ToLeft
Next L
End With
End Sub
à bientôt