Dim ws As Worksheet
For Each ws in Worsheets
'ton code
Next
Sub Largeur()
Dim F
For F = 1 To Sheets.Count
Sheets(F).Columns(11).ColumnWidth = 5
Next
End Sub
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