Figer format "texte" des cellules

Bonsoir,

Dans ma feuille, j'importe des données dans une colonne par l'intermédiaire d'un lecteur de codes barres.(13 chiffres)

Tout fonctionne bien puisque j'ai mis les cellules en format "Texte"

J'automatise par un bouton la suppression des données par la fonction [Range("A6", "A35").Clear]

Quand j'importe de nouveau des données, Excel ne les traite plus en Texte mais en Standard et me les affiche en format scientifique.

Que mettre dans le bouton pour qu'après avoir effacé les données les cellules restent en format Texte ?

Merci de votre aide

Bonjour,

Remplace Clear par ClearContents

Merci beaucoup !