Désolé tu as raison le fichier ne veut pas ce joindre alors voici le code a mettre en lieu place de ton code sur ton fichier
Private Sub Ajout_cli_Click()
With Sheets("client")
i = .Range("B65536").End(xlUp).Row
If OptionButton1.Value = True Then
.Range("A" & i + 1).Value = OptionButton1.Caption
End If
If OptionButton2.Value = True Then
.Range("A" & i + 1).Value = OptionButton2.Caption
End If
If OptionButton3.Value = True Then
.Range("A" & i + 1).Value = OptionButton3.Caption
End If
.Range("C" & i + 1).Value = ComboBox1.Value
.Range("B" & i + 1).Value = ACNUMCLIENT
.Range("D" & i + 1).Value = ACNOM
.Range("E" & i + 1).Value = ACPRENOM
.Range("F" & i + 1).Value = ACADRESSE
.Range("G" & i + 1).Value = ACCOMPLEMENT
.Range("H" & i + 1).Value = cboCP
.Range("I" & i + 1).Value = Lstville
.Range("J" & i + 1).Value = ACTELEPHONNE
.Range("K" & i + 1).Value = ACPORTABLE
.Range("L" & i + 1).Value = ACFAX
.Range("M" & i + 1).Value = ACMAIL
End With
ComboBox1.Value = ""
ACNUMCLIENT.Value = ""
ACNOM.Value = ""
ACPRENOM.Value = ""
ACADRESSE.Value = ""
cboCP.Value = ""
Lstville.Value = ""
ACTELEPHONNE.Value = ""
ACPORTABLE.Value = ""
ACFAX.Value = ""
ACMAIL.Value = ""
'ici on vire le userform pas la peine de le garder en memoire
Unload Me
End Sub