Répéter une formule

Bonjour,

voila je suis un débutant en Vba ! j'aimerai avoir de l'aide s'il vous plait ...

j'ai débuté par créer une base formule Vba puis j'ai  créé un bouton "enregistrer" qui me permet de ranger des renseignements de certains clients (Feuille "Fiche Clients") à partir d'une autre (feuille "Devis Pro") de facon successives à chaque fois que je clique sur ce bouton ranger tant qu'il y'a de vide .

je répond par "oui" dans le msgbox , il prens la valeur de D10 (Feuille "Devispro") et l'affecte à la cellule C2 (Feuille "Fiche clients") , et lorsque je clique encore il affecte la valeur de D10 dans la cellule C3 et ainsi de suite .

Ce base de formule consiste seulement de ranger seulement le nom et prénom !

Dim plage As Range
    Dim r As Range
    With Sheets("Fiche Clients")
    Dl = .Range("C" & Rows.Count).End(xlUp).Row + 1
    If Dl = 10 Then Dl = 2
    rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
    If rep = vbYes Then
    .Range("C" & Dl).Value = Range("D10").Value
    
End If
End With
End Sub

j'aimerai refaire et rassembler ce truc avec un autre renseignement de client "Adresse" par exemple, dans un seul bouton et dans une seule formule VBA

Dim plage As Range
    Dim r As Range
    With Sheets("Fiche Clients")
    Dl = .Range("D" & Rows.Count).End(xlUp).Row + 1
    If Dl = 11 Then Dl = 2
    rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
    If rep = vbYes Then
    .Range("D" & Dl).Value = Range("D11").Value

End If
End With
End Sub

Merci Beaucoup d'avance !

Windows / Edge 109.0.1518.78