Macro Excel Copié Collé Sélection 2

Bonjour, hier j'avais sollicité votre aide pour le même problème
Mais il y a un soucis dans le code qu'on m'avait aidé à effectuer

Je remet le problème ici :
"Bonjour, je me retourne vers vous une nouvelle fois, un dernier problème s'offre à moi dans ma macro, une fois ce problème terminé, ma macro sera enfin terminé !
Je vais essayé de vous expliquer au mieux mon problème.

Donc j'ai la feuille 2 colonne I
Dedans il y a des (entités responsables) par exemple

Feuille 3
I
1 (titre)
2 "Entité1"
3 "Entité2"
4 "Entité3"
Etc

Le but étant de coller ces noms ds
La feuille "Export" Colonne M à partir de la ligne 3
Mais en rajoutant à chaque fois devant un texte qui sera TOUJOURS le même "ING/UNIE"

Ce qui donnerait

Feuille Export
M
1 (titre)
2 (titre)
3 ING/UNIE/Entité1
4 ING/UNIE/ Entité2
5 ING/UNIE/ Entité 3
6 ING/UNIE/ Entité 4

etc..."

Donc Francois, m'avait aidé à faire ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim feuille1 As Worksheet Dim feuille2 As Worksheet Dim Yfeuille1 As Integer Dim Yfeuille2 As Integer 'Tu assignes ici le nom de tes feuilles Set feuille1 = Workbooks(1).Worksheets("Feuil2") Set feuille2 = Workbooks(1).Worksheets("Export") 'Tu te positionne aux lignes voulues Yfeuille1 = 2 Yfeuille2 = 3 '9 correspond à ta colonne I, 13 à ta colonne M While feuille1.Cells(Yfeuille1, 9).Value <> "" feuille2.Cells(Yfeuille2, 13).Value = "ING/UNIE/" & feuille1.Cells(Yfeuille1, 9).Value Yfeuille1 = Yfeuille1 + 1 Yfeuille2 = Yfeuille2 + 1 Wend
Mais il y a un problème qui se passe quand je met ce code dans ma macro

Code:

Set feuille1 = Workbooks(1).Worksheets("Feuil2")

A ce niveau du code, ça ne fonctionne pas et surligne tout en jaune, je n'arrive pas à comprendre pq, j'ai tt fait mais je désespere, et je m'en remet à vous,
En espérant que quelqu'un sache

Ca ne marche toujours pas en fait...
Je suis désespéré, j'ai le droit à

Erreur d'execution 9, l'indice n'appartient pas à la sélection

Bonjour Enzo,
Essayes ceci :

Code:

Set feuille1 = ThisWorkbook .Sheets("Feuil2")

Eric

Enzo,
Vérifie également le nom de ta feuille, si tu écrit

Code:

Set feuille1 = ThisWorkbook .Sheets("Feuil2")

et que ta feuille est nommée différemment tu vas générer l'erreur qui t'indique que l'indice n'appartient pas à la sélection, et cela est souvent du à une erreur d'inattention.
Eric