Copier valeur, format et dans la première cellule vide

Bonjour,

Je cherche à copier depuis une feuille (source) les valeurs et la mise en forme d'une plage de donnée définie dans une cellule d'une feuille (destination). De plus, je souhaites que lors d'un énième copiage, la plage se colle à la suite des autres selon la colonne de destination.

Voilà ci-dessous le code que j'utilise mais qui m'affiche un message d'erreur :

Sub Panneaux3plis()

With Sheets("Feuille de presse optim").Range("A1:M9")
End With
With Sheets("Optim panneaux_barres").Range("I3").End(xlDown).Offset(1, 0)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End With

End Sub

Merci pour votre aide.

Bonjour,

Plusieurs remarques dans votre code :

-Les With et end With ne sont pas utiles.

-Vous utilisez "paste" mais à aucun moment la fonction copy a été utilisée.

Sub Panneaux3plis()
'Copy de la plage
Worksheets("Feuille de presse optim").Range("A1:M9").Copy

'Selection de la dellule de destination
Range("C" & Worksheets("Optim panneaux_barres").Range("I65536").End(xlUp).Row + 1).Select

'Collage de la copie
ActiveCell.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

End Sub