Macro pour afficher 0 dans une liste de cellules

[Simonbb]

Bonjour à tous,

J'ai ajouté une maccro pour remettre à 0 certaines cellules :

Worksheets("Feuille 1").Range("B3,B4,B5,B6,B9,B12,B15,B16,B17,B18").ClearContents

Mais j'aurai aimé que les cellules affichent " 0 " et non une cellule vide.

Est-ce possible ?

Merci,

 

[Lolote83]

Salut,
Peut être comme ceci
Worksheets("Feuil1").Range("B3,B4,B5,B6,B9,B12,B15,B16,B17,B18") = 0
@+ Lolote83

 

[Simonbb]

Bonjour,

Cela me met " erreur d'exécution 9 "

 

[Simonbb]

au temps pour moi c'est bon

Merci beaucoup