PasteSpecial VBA

Bonjour,

Je cherche à copier/coller les valeurs d'un range de cellule d'une feuille à l'autre en VBA.

Avez une idée de pourquoi test1() fonctionne, mais test2() plante ("erreur d'execution '1004'...)


Sub test1()
Dim rgIn, rgOut As Range

Set rgIn = Sheets("Feuil1").Range("C46:N46")
Set rgOut = Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0)

rgIn.Copy rgOut

End Sub




Sub test2()
Dim rgIn, rgOut As Range

Set rgIn = Sheets("Feuil1").Range("C46:N46")
Set rgOut = Sheets("Feuil2").Range("B65536").End(xlUp).Offset(1, 0)

rgIn.Copy rgOut.PasteSpecial(xlPasteFormulasAndNumberFormats)
End Sub