Private Sub Copy_Paste()
'Copie les valeurs des cellules de la plage sélectionnée et les colle dans
'les cellules de l'autre plage de cellules sélectionnée.
Dim mycells1, mycells2 As Range
Dim cells As Range
Dim i, cellules, cell(100)
Set mycells1 = Application.InputBox(prompt:='Sélectionnez la plage de cellules à copier.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
i = 1
For Each cellules In mycells1
cell(i) = cellules.Value
i = i + 1
Next
i = 1
Set mycells2 = Application.InputBox(prompt:='Sélectionnez la plage de cellules de destination.', _
Title:='Plage de cellules', Left:=500, Top:=300, Type:=8)
For Each cellules In mycells2
cellules.Value = cell(i)
i = i + 1
Next
End Sub