deux feuilles deux formulaires

Dim Plage As Range
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Sheets("Adresse")
    Set Plage = .Range("C9:C" & .Range("D65536").End(xlUp).Row)
End With
ListBox2.List = Plage.Value
End Sub
' Appel Nouveau client par DblClick
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim ligne As Long
    ligne = ListBox2.ListIndex + 1
    If ligne = 0 Then Exit Sub
    Me.Hide 'cache l'userform1 en selectionnant dans la listbox
    With UserForm2
        .TextBox1.Text = Plage.Cells(ligne, 1)
        .TextBox2.Text = Plage.Cells(ligne, 2)
        .TextBox3.Text = Plage.Cells(ligne, 3)
        .TextBox4.Text = Plage.Cells(ligne, 4)
        .TextBox5.Text = Plage.Cells(ligne, 5)
        .Show ' et ouverture UserForm8
    End With
End Sub

Private Sub UserForm_Initialize()
Dim I As Integer, J As Integer, Cellule As Range
With UserForm1.ListBox2
For I = 0 To .ListCount - 1
If .Selected(I) Then
Set Cellule = Sheets("Adresse").Cells.Find(.List(I))
For J = 1 To 5
Me.Controls("TextBox" & J) = Cellule.Offset(0, J - 1)
Next J
Exit For
End If
Next I
End With
End Sub