Private Sub Listbox1_click()
For Each c In f.Range("J2:J" & f.[J65000].End(xlUp).Row) ' on explore la colonne de niveau 1
' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Contact = c.Offset(, 5)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Adresse1 = c.Offset(, -3)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Adresse2 = c.Offset(, -2)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.CodePostal = c.Offset(, -1)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Ville = c.Offset(, 0)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Telephone = Format(c.Offset(, 1), "0#"".""##"".""##"".""##"".""##")
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Fax = Format(c.Offset(, 2), "0#"".""##"".""##"".""##"".""##")
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Mail = c.Offset(, 3)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.URL = c.Offset(, 4)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Role = c.Offset(, 6)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.MailContact = c.Offset(, 7)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.MailPerso = c.Offset(, 8)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.TelContact = Format(c.Offset(, 9), "0#"".""##"".""##"".""##"".""##")
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.TelPerso = Format(c.Offset(, 11), "0#"".""##"".""##"".""##"".""##")
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Divers = c.Offset(, 17)
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.Label17.Caption = c.Row
'Si selection de structure, on active le bouton de modification et de suppression
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.CommandButton8.Enabled = True
If c = Me.ComboBox2 And c.Offset(, -5) = Me.ListBox1 Then Me.CommandButton10.Enabled = True
' Label17.Caption = c.Row (Je l'utilisai ici, hors boucle, comme tu le dis)
Next c
End Sub