Mise à largeur de 2 groupes de colonnes

Bonjour à tou(te)s

Je butte sur un problème apparemment très simple mais incompréhensible ...

Une simple routine en deux temps précise:

1) la largeur d'un groupe1 de colonne contigües

2) fait ensuite de même pour un deuxième groupe2 de colonnes.

Le problème est que le deuxième bout de code, qui ne concerne que les colonnes du groupe2, modifie aussi la largeur des colonnes du groupe1 !??

Merci de vos lumières.

Cordialement.

'------------------

' CODE:

'------------------

Sub L_Col()

'1) Mise à largeur de 8.57 des col I à AV

Columns("I:AV").Select '-->Selection du Groupe1

'Range("I2").Activate

Selection.ColumnWidth = 8.57

MsgBox "Les col I à AV sont à 8.57 de largeur"

'2) Mise à largeur de 31.86 des colonnes E à F

Columns("E:F").Select '-->Selection du groupe2

'Range("E2").Activate

Selection.ColumnWidth = 31.86

MsgBox "Les col E et F sont à 31.86 de largeur"

'Mais ici les colonnes I à AV, du groupe1, passent aussi à 31.86 !!???

Range("A1").Select

End Sub

Oups, voir le fichier attaché au mail précédent.

Bonjour,

Conseil : perdre définitivement la manie de sélectionner à tout bout de champ...

Sub L_Col()
    With ActiveSheet
        .Columns("I:AV").ColumnWidth = 8.57
        .Columns("E:F").ColumnWidth = 31.86
    End With
End Sub

Cordialement.

Merci MFerrand,

C'est en effet beaucoup plus lisible et propre !

Je retiens le conseil.

@++