XL 2019 Création de formulaire

Sub CréationFiche()
  Dim Ind As Integer, TabRngSce() As String, TabRngDes() As String
  ' Définir les cellules source
  TabRngSce = Split("A2,A6,C6,E6,G6,A9,C9,A13", ",")
  ' Définir les cellules de destination
  TabRngDes = Split("C17,C14,A23,E23,G23,C29,C34,A38", ",")
  ' Avec ce classeur
  With ThisWorkbook
    ' Boucler sur chaque cellule
    For Ind = 0 To UBound(TabRngSce)
      ' Inscrire les valeur
      .Worksheets("Document").Range(TabRngDes(Ind)).Value = .Worksheets("Création").Range(TabRngSce(Ind)).Value
    Next Ind
    ' A la fin, mémoriser le dernier n° de CR
    .Worksheets("Création").Range("L1").Value = .Worksheets("Création").Range("A6").Value
  End With
End Sub