UserForm

Private Sub UserForm_Initialize()
Dim LigneFin As Long
ListboxVilles.Visible = False
LigneFin = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.List = Sheets("Feuil2").Range("A2:A" & LigneFin + 1).Value
End Sub

Private Sub ComboBox1_Change()
Dim Trouve As Range
With Sheets("Feuil2")
  Set Trouve = .Range("A:A").Find(ComboBox1, lookat:=xlWhole)
  TextBox1 = .Range("B" & Trouve.Row)
  TextBox2 = .Range("C" & Trouve.Row)
 'La suite
End With
End Sub

  Set Trouve = .Range("A:A").Find(ComboBox1, lookat:=xlWhole)
  TextBox1 = .Range("B" & Trouve.Row)

Private Sub ComboBox1_Change()
 Dim Trouve As Range
 Dim Ligne as long 
 With Sheets("Feuil2")
   Set Trouve = .Range("A:A").Find(ComboBox1, lookat:=xlWhole)
   if not Trouve is nothing then 
      ligne = Trouve.Row
      TextBox1 = .Range("B" & ligne)
      TextBox2 = .Range("C" & ligne)
      'La suite 


      'La fin des infos à mettre à jour 
    end if 
 End With
 End Sub