[RESOLU] Userform avec référence à 2 feuilles Excel

Private Sub ComboBox1_Change()
Dim C As Range, X As Range
With Me
    .ListBox1.Clear
    .ListBox2.Clear
End With
Set C = Sheets("Données").Columns("B").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
  firstAddress = C.Address
     Do
      Me.ListBox1.AddItem Sheets("Données").Cells(C.Row, 1)
      Set C = Sheets("Données").Columns("B").FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
Set X = Sheets("Contact").Columns("A").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not X Is Nothing Then
  firstAddress = X.Address
     Do
      Me.ListBox2.AddItem Sheets("Contact").Cells(X.Row, 2)
      Set X = Sheets("Contact").Columns("A").FindNext(X)
Loop While Not X Is Nothing And X.Address <> firstAddress
End If
End Sub