Bonjour,

J'ai créé un code qui me permet de copier des cellules (sur la feuille 'données' ) selon des critères pour les coller dans une autre feuille '2007'.
Tout se déroule bien, elles se collent bien sur la feuille '2007', mais ensuite excel me marque "erreur paste", et ne veut plus executer la suite de ma macro.

Je vous met une partie du code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sheets("donnees").Select
    ActiveSheet.Range("$A$3:$AU$140").AutoFilter Field:=1, Criteria1:="FINI"
    Range("A4:AU151").Select
    Selection.Copy
    Sheets("2007").Select
    Sheets("2007").Activate
    ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row + 1
    Range("A" & ligne).PasteSpecial xlPasteValues
    ligne = [a65000].End(xlUp).Row + 1
    ActiveSheet.Paste
    Sheets("donnees").Select
Ensuite je dois retourner sur la feuille '2007' pour effacer les champs copier, mais il bug.

Pouvez-vous m'aider?

Merci