Sub test()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
For i = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1
Debug.Print Right(.Cells(i, 1).Text, 2)
If IsDate(.Cells(i, 1)) And Right(.Cells(i, 1).Text, 2) <> "01" Then .Rows(i).Delete
Next i
End With
End Sub