Private Sub UserForm_Initialize()
Dim Nom As String
Dim Tablo As Variant
For s = 1 To 3
Nom = Array("Bleu", "Rouge", "vert")(s - 1) 'Tableau de base 0
With Sheets(Nom)
Tablo = .Range(.Cells(6, 5), .Cells(15, 6))
End With
With UserForm1.Controls("Listbox" & s)
.ColumnCount = 2
.ColumnWidths = "60;60"
.List = Tablo
End With
Next
End Sub