[Roland_M]

bonjour, essai ceci
Sub Essai()
Worksheets(1).Activate
Dim R1 As Range, R2 As Range, R3 As Range, myMultiAreaRange As Range
Set R1 = Range("A1:A10")
Set R2 = Range("D110")
Set R3 = Range("G1:G10")
Set myMultiAreaRange = Union(R1, R2, R3)
myMultiAreaRange.Select
' mais ceci copy mais en colonnes contigues
Selection.Copy Destination:=Worksheets(2).Range("A1")
' sinon classique
Worksheets(1).Range("A1:A10").Copy Destination:=Worksheets(2).Range("A1")
Worksheets(1).Range("D110").Copy Destination:=Worksheets(2).Range("D1")
Worksheets(1).Range("G1:G10").Copy Destination:=Worksheets(2).Range("G1")
End Sub

Salut. Roland_M