Sub boucles_format()
Range("C11:E31").Select ' sélectionne "C11:E31"
Application.CutCopyMode = False
Selection.Copy ' copie la sélection
Cells(11, 3).Select 'se positionne en C11
For z = 3 To 253 Step 3 'z => n° colonne
Cells(11, z).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next z
End Sub