Sub vachercher()
With UserForm1
.ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\" 'à adapter au besoin
Fichier = "[charpentes.xls]" ' le nom du fichier à lire
Onglet = "Tuiles'!" 'le nom de l'onglet à lire
For k = 7 To 65000 'commencer à lire à la ligne 7
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
.Show
End With
End Sub