Sub Rectangleàcoinsarrondis4_Cliquer()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OC As Worksheet 'déclare la variable OC (Onglet Cible)
Dim PS As Range 'déclare la variable PS (Plage Source)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim I As Byte 'déclare la variable I (Incrément)
Set OS = Sheets("Fiche new Client") 'définit l'onglet source OS
Set OC = Sheets("Base de données Clients") 'définit l'onglet cible OC
Set PS = Application.Union(OS.Range("D9"), OS.Range("F9"), OS.Range("B9"), OS.Range("D7"), OS.Range("D13"), OS.Range("F13"), OS.Range("D15"), OS.Range("D17"), OS.Range("D19"), OS.Range("D22"), OS.Range("B27")) 'définit la plage PS
'définit la cellule de destination DEST (A1, si A1 est vide, sinon la première cellule vide de la colonne 1 (=A)
Set DEST = OC.Range("A1").End(xlDown).Offset(1, 0)
For Each CEL In PS 'boucle sur toutes les cellules CEL de la plage PS
DEST.Offset(0, I).Value = CEL.Value 'renvoie la valeur de la cellule CEL dans la cellule DEST déclalée de I colonnes à droite
I = I + 1 'incrément I
Next CEL 'prochaine cellule de la boucle
End Sub