Sub LargeurColonnesUneSurDeux()
Dim c As Range, plage1 As Range, [COLOR="red"]plage2 As Range[/COLOR]
For Each c In ActiveSheet.UsedRange.Columns
If c.Column Mod 2 Then Set plage1 = Union(c, IIf(plage1 Is Nothing, c, plage1)) _
[COLOR="Red"]Else Set plage2 = Union(c, IIf(plage2 Is Nothing, c, plage2))[/COLOR]
Next
If Not plage1 Is Nothing Then
plage1.ColumnWidth = 5 '=> largeur des colonnes concernées
'suite du code
End If
[COLOR="red"]If Not plage2 Is Nothing Then
plage2.ColumnWidth = 20 '=> largeur des colonnes concernées
'suite du code
End If[/COLOR]
End Sub