Sub a()
Dim arrWSN() As String, i%
'crée un tableau avec le nom de toutes les feuilles du classeur actif
ReDim arrWSN(1 To ActiveWorkbook.Sheets.Count)
For i = 1 To Sheets.Count
arrWSN(i) = Sheets(i).Name
Next i
'ici recopie le format de la colonne C, donc également la largeur de colonnes
Worksheets(arrWSN).FillAcrossSheets Worksheets(1).Range("C:C"), xlFillWithFormats
End Sub