Re voici le code:
.ComboBox1.AddItem Ws.Cells(2, Liste(0)).Value 'Entete premiere colonne
For NoCol = 1 To UBound(Liste)
.ComboBox1.Column(NoCol, 0) = Ws.Cells(2, Liste(NoCol)).Value 'Ajoute les autres entetes
For NoLigne = 5 To Ws.Range("B" & Rows.Count).End(xlUp).Row
.ComboBox1.AddItem Ws.Cells(NoLigne, Liste(0)).Value
.ComboBox1.Column(NoCol, NoLigne - 4) = Ws.Cells(NoLigne, Liste(NoCol)).Value
Next
Next
sachant que les titres du tableau sont en ligne 2 et que données en ligne 5
Voilà, si ca peut aider
A+
Séb