merci abel
cela fonctionne
voilà le code :
Application.ScreenUpdating = False
For c = Range('A65536').End(xlUp).Row To 2 Step -1
If Not IsNumeric(Cells(c, 'a')) Then
Cells(c, 'a').EntireRow.Delete shift:=xlUp
End If
Next
Application.ScreenUpdating = True
merci beaucoup
olivier