Re,
En plus du code de Myta, rajoute celui -ci juste après le sien
Private Sub UserForm_Initialize()
Dim I As Integer, x As Integer
For I = 4 To Sheets("feuil1").Range("IV1").End(xlToLeft).Column
With ComboBox1
.AddItem Sheets("feuil1").Cells(1, I)
End With
Next I
End Sub
Cela te permettra de remplir la liste déroulante et de faire un choix dans cette liste.
Une chose toutefois, dans cette liste tu as mis un nom par défaut que l'on voit dans les propriétés de la combo à la rubrique TEXT. Enlève le.
A te lire
Dan