Marc_du_78
XLDnaute Accro
Bonjour le Forum,
Après avoir copier une plage de cellule, je souhaite coller les valeurs de cette plage à la suite
de la dernière écriture de la colonne 'A' mais je coince. C'est pourquoi je sollicite votre aide.
Sub ImpTot()
Dim MyLastCell As Range
Range('CA1O1').Copy
With
Set MyLastCell = .Range('a65536').End(xlUp) + 1
MyLastCell.Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
En vous remerciant.
Après avoir copier une plage de cellule, je souhaite coller les valeurs de cette plage à la suite
de la dernière écriture de la colonne 'A' mais je coince. C'est pourquoi je sollicite votre aide.
Sub ImpTot()
Dim MyLastCell As Range
Range('CA1O1').Copy
With
Set MyLastCell = .Range('a65536').End(xlUp) + 1
MyLastCell.Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub
En vous remerciant.