Voici le code utilisé
'***********************
'Procédure permettant d'ajouter un nouveau client
'dans le fichier client
'***********************
Private Sub BtnAjout_Click()
Sheets("Fichier clients").Activate
Range("A1").Select
Selection.End(xlDown).Select 'Positionne sur la dernire ligne non vide
Selection.Offset(1, 0).Select 'DŽcale d'une ligne vers le bas
ActiveCell = cboOrdre.Value
ActiveCell.Offset(0, 1).Value = cboMachine
ActiveCell.Offset(0, 2).Value = cboService
ActiveCell.Offset(0, 3).Value = cboCivilite
ActiveCell.Offset(0, 4).Value = txtNom
ActiveCell.Offset(0, 5).Value = txtPrenom
ActiveCell.Offset(0, 6).Value = txtAdresse
ActiveCell.Offset(0, 7).Value = txtCP
ActiveCell.Offset(0, 8).Value = txtVille
ActiveCell.Offset(0, 9).Value = txtFixe
ActiveCell.Offset(0, 10).Value = txtPortable
ActiveCell.Offset(0, 11).Value = txtEmail
ActiveCell.Offset(0, 12).Value = txtCommentaire
MsgBox "La fiche client a bien été créée", vbOKOnly + vbInformation, "CONFIRMATION"
Unload Me
End Sub
Merci