Bonjour à tous,  
je souhaiterais supprimer les données de type string(mots ou phrases) dans un champ complet d'une feuille excel (collone C).j'ai un problème au niveau de mon script, il me supprime toutes les valeurs des cellules du champs C même la ou les données sont des nombres avec deux chiffres après la virgule.  
Voici la macro:  
 
Sub macro1()  
Workbooks.Open "c:\tarif.xls"  
For Each cellule In Range("c1:c2050" )  
 
If cellule.Value <> numeric Then  
cellule.Value = ""  
End If|
 
Next cellule  
ActiveWorkbook.Save  
Workbooks.Close  
End Sub  
 
Merci d'avance pour votre aide.  
Très cordialement Kévin.

Bonjour Petit Chose  Kévin  
 
Comme ils te répondent pas, je te donne la formule:
 
If IsNumeric(cellule) = False Then cellule.Value = ""
 
 
(Quand on n'a qu'une seule commande après If, on la met sur la même ligne sans End If)  
 
 Très cordialement itou