Sub Supprime()
'Macro par Dan pour Christian0258 le 11/11/06
Dim derlig As Variant, i as variant, Myvalue As Variant
derlig = Range("A65536").End(xlUp).Row
For i = derlig To 7 Step -1
Myvalue = Left(Range("A" & i), 1)
If IsNumeric(Myvalue) = False Then Rows(i).Delete
Next i
End Sub