Remise à zéro de cellules

Salut le forum,

j'ai un petit problème à vous soumettre.

J'ai ce code qui me permet de remettre certaines cellules à zéro.

Sub Macro4()

Range("C61").Select

ActiveCell.FormulaR1C1 = "=0"

Range("C62").Select

ActiveCell.FormulaR1C1 = "=0"

Range("C63").Select

ActiveCell.FormulaR1C1 = "=0"

End Sub

Cependant, comme le nombre de cellules que je veux remettre à zéro est beaucoup plus élevés et qu'il s'agit toujours d'une plage continue, j'aimerais savoir comment faire sans le faire cellule par cellule.

Merci

Bonjour

De cette façon:

Sub Macro4()
Range("C61:c70").FormulaR1C1 = "=0"

End Sub

Évidemment! Me semblait qu'un détail m'avait échappé.

Merci CB60