ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\"
Fichier = "[charpente.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
[COLOR="Red"]ChampALire2 = "R" & k & "C2"'si 2 colonnes
[/COLOR]ComboBox1.AddItem Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire)[COLOR="red"]
ComboBox1.Column(1, ComboBox1.ListCount - 1) = Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire2)'si 2 colonnes[/COLOR]If ComboBox1.List(ComboBox1.ListCount - 1) = 0 Then
ComboBox1.RemoveItem (ComboBox1.ListCount - 1)
Exit For
End If
Next