Private Sub userform_initialize()
ComboBox1.List = Feuil3.Range("o3:p" & Feuil3.Cells(Rows.Count, 15).End(xlUp).Row).Value
End Sub
Private Sub combobox1_Click()
Tel = ComboBox1.List(ComboBox1.ListIndex, 1)
Feuil1.[c4] = ComboBox1
Feuil1.[c6] = Tel.Value
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub