Effacer des données dans plusieurs onglets

Bonjour le Forum,

J’ai besoin de votre aide pour une formule (macro VBA) pour effacer des données sur plusieurs onglets.

Donc par un simple clic sur un bouton je voudrais effacer les données comprises entre les cellules A7 à AA800 sur plusieurs onglets (feuilles) nommés C1, C2, C3, C4, C5, C6, C7, C8 et C9.

Pour l’instant j’utilise cette macro par onglets pour effacer mes données :

Sub Initialise100()

Range("A7:AA800").ClearContents

End Sub

Merci pour votre aide, bonne soirée

Bonjour,

À tester ...

Sub Initialise100()
Dim X As Byte
Dim Nom As String
For X = 1 To 9
   Nom = "C" & X
   Sheets(Nom).Range("A7:AA800").ClearContents
Next X
End Sub

Gelinotte

Bonsoir,

Fonctionne très bien.

Merci gelinotte