Sub suppression()
For n = Sheets("Feuil1").Range("D65536").End(xlUp).Row To 4 Step -1
If Date - Sheets("Feuil1").Range("D" & n) > 180 Then Sheets("Feuil1").Range("D" & n).Delete Shift:=xlUp
Next n
End Sub
If Date - Sheets("Feuil1").Range("A1") > 180 Then
msgbox("plus de 6 mois")
else
exit sub
If Date - Cells(ligne, 15) > 180 Then
MsgBox ("plus de 6 mois")
Else