Un numéro unique

pour le N° ça fonctionne.

il faut changer Private Sub btnsauvegarde_Click() ? pourquoi ?

Dans le code Initialize que je vous ai donné avant , il y a une petite erreur à corriger

remplacez ces lignes

 If Me.txtn_carte = vbNullString Then
        Me.txtn_carte = WorksheetFunction.Max(.ListColumns(5).DataBodyRange) + 1
    Else: Me.txtn_carte = .DataBodyRange(ligne, 5)
    End If

Par celles-ci

 Me.txtn_carte = .DataBodyRange(ligne, 5)
    If Me.txtn_carte = vbNullString Then
        Me.txtn_carte = WorksheetFunction.Max(.ListColumns(5).DataBodyRange) + 1
    End If

il faut changer Private Sub btnsauvegarde_Click() ? pourquoi ?

De ce que je vois cela peut poser des soucis.

Faites un test peut-être

Ok tout fonctionne très bien.

merci encore de votre aide et de votre patience.

Ok si cela fonctionne mais bon je reste sur l'idée que ce sera à modifier

Si terminé pensez à ferme le fil

Cordialement