Private Sub UserForm_Initialize()
ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\"
fichier = "[BDD PRODUIT.xlsm]" ' le nom du fichier à lire
Onglet = "BDD'!" 'le nom de l'onglet à lire
For k = 2 To 65000 'commencer à lire à la ligne 2
ChampALire = "R" & k & "C1" ' k est la ligne incrémentée C1 est col A C2 est B ainsi de suite
'ChampALire2 = "R" & k & "C2"
ComboBox1.AddItem Application.ExecuteExcel4Macro(Chemin & fichier & Onglet & ChampALire)
'ComboBox1.Column(1, ComboBox1.ListCount - 1) = Application.ExecuteExcel4Macro(Chemin & fichier & Onglet & ChampALire2)
If ComboBox1.List(ComboBox1.ListCount - 1) = 0 Then
ComboBox1.RemoveItem (ComboBox1.ListCount - 1)
Exit For
End If
Next
SendKeys "{F4}"
End Sub