Combobox

Private Sub UserForm_Initialize() '  [1] INITIALISE UserModif (Départ)
Dim Plage As Range, NbrDeLig&
NbrDeLig = Range("A" & Rows.Count).End(xlUp).Row - 1
If NbrDeLig > 1 Then
   Set Plage = Range("A2:A" & NbrDeLig + 1)
   ComboBox1.List = Plage.Value
ElseIf NbrDeLig = 1 Then
   ComboBox1.AddItem Range("A2")
End If
End Sub
Private Sub ComboBox1_Change()  '  [2] REMPLI LE FORMULAIRE
Lgn = ComboBox1.ListIndex + 1
Label4 = Cells(Lgn, 2)
Label5 = Cells(Lgn, 3)
End Sub