Hello,
Essaie avec cette macro. Par contre il ne faut pas qu'il y ait d'erreur, type #Nom.
Sub suppr()
Dim i As Integer
For i = Range("a5000").End(xlUp).Row To 1 Step -1
If Range("a" & i).Value Like "1*" = False And Range("a" & i).Value Like "2*" = False And Range("a" & i).Value Like "3*" = False And Range("a" & i).Value Like "4*" = False And Range("a" & i).Value Like "5*" = False And Range("a" & i).Value Like "6*" = False And Range("a" & i).Value Like "7*" = False And Range("a" & i).Value Like "8*" = False And Range("a" & i).Value Like "9*" = False Then
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub
Bon je sais c'est pas terrible mais au moins çà marche ;-)
Bye
Ju