La méthode Range de l'objet global a échoué

Bonjour,

Je souhaite sélectionner des cellules présentes dans un tableau sur une feuille 1 selon une condition, copier les lignes entières puis les coller vers une feuille 2.
Je l'ai formalisé ainsi après diverses recherches sur Internet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Selection_cellule()   Worksheets(1).Activate Range("A1").Select   For Each cll In ActiveCell.CurrentRegion If cll.Value Like "*PARISIEN*" Then Plg = Plg & cll.Row() & ":" & cll.Row() & "," If cll.Value Like "*PARISIEN*" Then cll.Interior.Color = vbBlue Next cll   If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Copy Worksheets("PARIS").[A2]   End Sub

---

Mais lorsque je l'exécute j'ai " l'erreur d'exécution 1004: La méthode Range de l'objet global a échoué" sur la ligne:

Code:

---

Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Copy Worksheets("PARIS").[A2]

---

J'ai vu dans plusieurs sujets de discussions qu'il pouvait s'agir d'un problème d'activation de feuilles. J'ai testé avec cette ligne de code mais cette fois-ci, il y a "erreur définie par l'application ou l'objet"

Code:

---

If Len(Plg) > 0 Then Worksheets(1).Range(Left(Plg, Len(Plg) - 1)).Copy Worksheets("PARITEL").[A2]

---

Range ne peut pas contenir plus que 30 arguments.
Pour ton problème, passer par un filtre automatique au lieu d'une boucle me paraît judicieux

Citation:

---

Envoyé par mercatog

Range ne peut pas contenir plus que 30 arguments.
Pour ton problème, passer par un filtre automatique au lieu d'une boucle me paraît judicieux

---

Effectivement, la sélection contient plus de 30 arguments.
En revanche, je ne sais pas trop comment élaborer le code pour le filtre automatique.
Après quelques recherches, le filtre élaboré me permettrait d'extraire sur une autre feuille mes données filtrées mais est-il possible de faire plusieurs critères sans avoir à définir une zone de critère, l'équivalent d'un :

Code:

---

if cll.value like"*PARISIEN*" or cll.value "*LYONNAIS*"

---