Faire une boucle

[glm]

Bonsoir le forum,
j'aimerais réduire l'écriture en faisant une boucle(si possible)
Voici le code que j'utlise actuellement
Set tab1 = Application.Union(Range('C9:R20'), Range('C44:R55'), Range('C79:R90'), Range('C114:R125'), Range('C149:R160'), Range('C184:R195'), Range('C219:R230'))
Set tab2 = Application.Union(Range('C254:R265'), Range('C289:R300'), Range('C324:R335'), Range('C359:R370'), Range('C394:R405'), Range('C429:R440'), Range('C464:R475'))
etc...
J'ai 52 plages de cellules à effacer(ex:C9:R20, etc...)

plage1.Select
Selection.Value = ''
plage2.Select
Selection.Value = ''
On remarque qu'on ajoute toujours +35 sur les lignes.
J'ai essayé différente chose mais tjrs rien...
Si quelqu'un a une idée
je le remercie d'avance
PS: Bon Weekend à tous
A+

 

[Robert]

Bonsoir glm, bonsoir le forum,

Je te propose cette macro :

Sub Macro1()
Dim tab1 As Range

Set tab1 = Range('C9:R20')
tab1.Value = ''
For x = 1 To 13
Set tab1 = tab1.Offset(35, 0)
tab1.Value = ''
Next x
End Sub

 

[glm]

Bonsoir robert,
je viens de l'essayer
cela fonctionne très bien!!
Je n'avais pas penser à Offset
Un grand merci...
Bon Weekend à toi
A+
glm