Sub Macro2()
Sheets('feuil1').Activate
For i = 20 To 1 Step -1
Cells(i, 1).Select
If ((Selection.NumberFormat <> 'm/d/yyyy') And (Selection.NumberFormat <> '[$-F800]dddd, mmmm dd, yyyy') And (Selection.NumberFormat <> 'd/m;@') And (Selection.NumberFormat <> 'd/m/yy;@') And (Selection.NumberFormat <> 'dd/mm/yy;@') And (Selection.NumberFormat <> '[$-40C]d-mmm;@') And (Selection.NumberFormat <> '[$-40C]d-mmm-yy;@') And (Selection.NumberFormat <> '[$-40C]dd-mmm-yy;@') And (Selection.NumberFormat <> '[$-40C]mmm-yy;@') And (Selection.NumberFormat <> '[$-40C]mmmm-yy;@') And (Selection.NumberFormat <> '[$-40C]d mmmm yyyy;@') And (Selection.NumberFormat <> '[$-409]d/m/yy h:mm AM/PM;@') And (Selection.NumberFormat <> 'd/m/yy h:mm;@') And (Selection.NumberFormat <> '[$-40C]mmmmm;@') And (Selection.NumberFormat <> '[$-40C]mmmmm-yy;@') And (Selection.NumberFormat <> '[$-40C]d-mmm-yyyy;@')) Then
Rows(i).Select
Selection.Delete shift:=xlUp
End If
Next i
End Sub