Re,
essaie comme ca, le boutton tu peux le mettre où tu veux ca n'a aucune importance!
Sub SupprimLignes()
Dim DerLign As Long
Dim i As Integer, a As Integer
With Sheets("Titulaire")
DerLign = .[M65536].End(xlUp).Row
For i = DerLign To 2 Step -1
If DateDiff("d", .Cells(i, 12), .Cells(i, 13)) < 360 Then
.Rows(i & ":" & i).EntireRow.Delete
a = a + 1
End If
Next i
End With
MsgBox "Le nombre de lignes supprimées est : " & a, vbInformation, "nombre de lignes supprimées"
End Sub