If Me.OptionButton2 = True Then
'trouver la fonction recherche (rechercher le nom dans combobox1)
If Me.txtadresse <> "" Then
Sheets("Agents").Range("D" & resultat recherche) = Me.txtadresse
End If
If Me.txtntel <> "" Then
Sheets("Agents").Range("E" & resultat recherche) = Me.txtntel
End If
If Me.txtmail <> "" Then
Sheets("Agents").Range("F" & resultat recherche) = Me.txtmail
End If
Me.ComboBox1 = ""
Me.txtadresse = ""
Me.txtntel = ""
Me.txtmail = ""
End If
If Me.OptionButton3 = True Then
'trouver la fonction recherche (rechercher le nom dans combobox1)
'effacer toute la ligne
Me.ComboBox1 = ""
Me.txtadresse = ""
Me.txtntel = ""
Me.txtmail = ""
End If
End If
End Sub