Connaitre largeur de plusieurs colonnes

Allo a toutes et à tous.

Je voudrais connaître la largeur d'une sélection de colonne. C'est simple mais je n'y arrive pas.

Merci de votre support

Bonjour LB1976

Voici

Sub LargeurSelection()
  Dim Col As Range
  Dim TotLargeur As Single
  TotLargeur = 0
  For Each Col In Selection.Columns
    TotLargeur = TotLargeur + Col.Width
  Next Col
  MsgBox "Total largeur = " & TotLargeur
End Sub

A+