Salut je veux copier une feuille à la fin d'une autre feuille. j'ai réallisé ce code mais il affiche une erreur au niveau de la méthode pasteSpecial.Merci
<code>Sub Copier()</code>
Dim Sh As Worksheet, ws As Worksheet
Dim LastRow As Integer
Set ws = Sheets("MAI")
Set Sh = Sheets("April")
LastRow = Sh.Cells(Rows.Count, "A").End(xlUp).Row
ws.Cells.Copy
With Sh
Range("A" & LastRow).Select
Selection.PasteSpecial, Paste:=xlValues ' Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub
Marsh
NOVEMBER 9, 2013 AT 9:15 PM
Bonjour,
ReplyEvitez les select'
réponses:
auteur on 10 juil. 2018 à 11:46
Merci mais le code affiche une erreur.