Salut le forum,

Je rencontre un ptit souci sur le code ci-après :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Nomenclature.Sheets(1).Range("A6:C" & LastrowNomenclature & ",E6:E " & LastrowNomenclature & "").Copy
Sheets("PiecesAFabriquer").Activate
LastrowPieceAFabriquer = Sheets("PiecesAFabriquer").Range("A1").End(xlDown).Row + 1 
Sheets("PiecesAFabriquer").Range("A" & LastrowPieceAFabriquer).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Message d'erreur apparaissant : erreur définie par l'application ou par l'objet..

Quelqu'un aurait-il une ptite idée sur la question????

@+ Jeanvaljean