Problème que je n'arrive pas à résoudre

Bonjour le forum,

J'ai ,il y a deux semaine, demander de l'aide sur le forum pour une macro, on ma effectivement bien aider mais à ce jour je ne sais pas pourquoi il y a une erreur d'exécution 1004 "Erreur définie par l'application ou par l'objet" de cette ligne

"sh.[A2].resize-sh.[a65536].End(xlUp).Row -1, 16).Copy Destination:=worksheets("annee").[a65536.End(xlUp.Offset(1, 0)"

qui apartient a la codition

Dim sh As Worksheets

If sh.Name <> "annee" Then

"sh.[A2].resize-sh.[a65536].End(xlUp).Row -1, 16).CopyDestination:=worksheets("annee").[a65536.End(xlUp.Offset(1, 0)"

End if

Next sh

Cette macro me sert a copier les feuilles 1 et 2 à partir de la cellule A2

et de me les copier dans la feuille annee.

Merci d'avance

EDIT : J'ai trouver d'où vient le problème, mais n'arrive pas a le résoudre.

C'est parceque j'ai une 4ème feuille de nom "TCD", quand je la supprime, la macro fonctionne très bien.

J'ai essayer la formule Dim sh As Worksheets

If sh.Name <> "annee" And "TCD" Then

Mais ça ne fonctionne pas.

Bonjour,

Si tu veux limiter la copie aux feuilles "Feuil1" et "Feuil2", tu dois coder

Dim Sh As Worksheet
    For Each Sh In Worksheets
        If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Then
            Sh.[A2].Resize(Sh.[a65536].End(xlUp).Row - 1, 16).Copy Destination:=Worksheets("annee").[a65536].End(xlUp).Offset(1, 0)
        End If
    Next Sh

A+

Bonjour, et merci pour la réponse.

Effectivement, ca marche mieux. Pourquoi chercher simple quand on peut chercher compliqué?