Sub test()
Dim Colorigine, Coldestination As String
'pour savoir le nombre d'itération pour la boucle While
NbColonnes = Range("A1").End(xlToRight).Column
i = 1
While i <= NbColonnes
Colorigine = Sheets("Mapping").Cells(1, i)
Coldestination = Sheets("Mapping").Cells(2, i)
Sheets("Sheet3").Range(Colorigine & ":" & Colorigine).Cells.Copy Sheets("Sheet1").Range(Coldestination & ":" & Coldestination)
i = i + 1
Wend
End Sub