For Colonne = 15 To 104
If Cells(Lign, Colonne) <> "" Then
ListBox1.Selected(Colonne - 15) = True
ListBox2.AddItem Sheets("reflex").Cells(Lign, Colonne)
Else
ListBox1.Selected(Colonne - 15) = False
ListBox2.AddItem ""
End If
Next Colonne
ListBox2.Selected(Colonne - 15) = True