Comment créer un bouton enregistrer

à remplacer:

Private Sub CommandButton3_Click()
Dim rep As Integer, Dl As Long
With Sheets("Feuil1")
   Dl = .Range("H" & Rows.Count).End(xlUp).Row + 1
   If Dl = 2 Then Dl = 7
   rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
   If rep = vbYes Then
       .Range("H" & Dl).Value = Range("A6").Value 'nom
       .Range("L" & Dl).Value = Range("E11").Value 'heure
       .Range("J" & Dl).Value = Range("D8").Value & "/" & Range("E8").Value & "/" & Range("F8").Value 'date
       .Range("O" & Dl).Value = Range("A23").Value 'fournisseur
       .Range("Q" & Dl).Value = Range("C23").Value 'N° BL
       .Range("S" & Dl).Value = Range("E23").Value 'montant
   End If
End With
End Sub

Voilà

@+ Le Pivert

Bonjour, merci énormément ca marche nickel, j'ai changer le design de ma feuille, ce qui a eu pour conséquences de ne pas correspondre au code vba pourriez vous s'il vous plait apporté les modifications nécessaires ? Si oui je voici le nouveau fichier :
https://www.cjoint.com/c/KAniSLeXgUC .

Avec les commentaires, il est très facile de modifier le code!

Bon courage

Le Pivert

Merci ! J'ai réussi à changer l'enregistrement mais j'ai un problème quand ca enregistre ca ne revient pas a la ligne d'en dessous et donc cela supprime l'enregistrement précèdent.