copier/coller selection multiple
Bonjour à tous,
Je cherche à copier/coller 3 plages de données contenues dans une feuille de mon classeur ("Feuill3") vers une autre feuille de mon classeur("OT"). Lorsque j'exécute la macro ci-dessous, je colle les plages sur la feuille OT non pas les unes à la suite des autres (ce que je voudrais) mais les unes sur les autres. Je ne vois pas où est mon erreur.
Merci d'avance de votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub Macro2()
Dim dest1, dest2, dest3 As Range
Dim i As Integer
With Sheets("OT")
If .Range("A2").Value = "" Then
Set dest1 = .Range("A2")
Else
Set dest1 = .Range("A65536").End(xlUp).Offset(1, 0)
End If
Set dest2 = Range("A65536").End(xlUp).Offset(1, 0)
Set dest3 = Range("A65536").End(xlUp).Offset(1, 0)
End With
Sheets("Feuil3").Range("I82:AN92").Copy Destination:=dest1
Sheets("Feuil3").Range("AO82:BT92").Copy Destination:=dest2
Sheets("Feuil3").Range("BU82:CZ92").Copy Destination:=dest3 |
