Soucis avec Une ComboBox

Private Sub cbxNom_Change()

Set c = Range(F13.Range("a3"), F13.Range("a65536").End(xlUp)).Find(cbxNom)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
NbPrenom = NbPrenom + 1
cbxPrenom.AddItem c.Offset(0, 1)
Set c = Range(F13.Range("a3"), F13.Range("a65536").End(xlUp)).FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
If NbPrenom > 1 Then
cbxPrenom.ShowDropButtonWhen = fmShowDropButtonWhenAlways
tbxN°Ligne = ""
Else
tbxN°Ligne = c.Row
End If
End If

End Sub

Cliquez pour agrandir...