Sub Affichage_Couple_Final()
Dim i%, f As Worksheet, cw$
Set f = Sheets("Feuil7")
With ListBox4
cw = ""
.RowSource = "C3:AA6" '
.MultiSelect = fmMultiSelectMulti
.ColumnCount = f.[C3:AA6].Columns.Count '25
'---- récupère la largeur des colonnes Feuil pour l'appliquer aux colonnes ListBox -----
For i = 1 To f.[C3:AA6].Columns.Count
cw = cw & f.[C3:AA6].Columns(i).Width * 1.18 & ";"
Next i
.ColumnWidths = cw
.Height = 42
.Width = 580
End With
End Sub