Erreur d'execution '1004' Erreur définie par l'application o

Salut à tous, je suis entrain de faire un code VBA qui retrouve les mots placés dans une liste dans les messages placés dans une deuxième liste. Mais je rencontre un problème avec cette erreur 1004, j'ai essaie de voir sur internet mais j'ai pas trouvé une solution à mon problème qui est situé au niveau de la deuxième boucle for:

Option Explicit

Sub Cherche()
Dim Wb As Workbook
Dim Sh As Worksheet
Dim Cell, Cell2 As Object

Set Wb = ThisWorkbook

    For Each Cell In Wb.Sheets("Feuil2").Range("List[PRODUCTS]").Cells

        For Each Cell2 In Wb.Sheets("Feuille1").Range("Comms[[Message]:[Réponse]").Cells
       'Le problème est à la ligne precedente 
            If CBool(InStr(1, LCase(Cell2.Text), LCase(Cell.Text), vbTextCompare)) Then

                Wb.Sheets("Feuille1").Range("Comms[Products Found]").Cells(Cell2.Row - 1).FormulaR1C1 = _
                Wb.Sheets("Feuille1").Range("Comms[Products Found]").Cells(Cell2.Row - 1).Text & Cell.Text & ", "

            End If
        Next Cell2
   Next Cell ' Test next Product Name

Set Wb = Nothing ' Clean object when done

End Sub

Merci de votre aide

Salut

Es-tu sûr du nom de tes feuilles ? tu as "Feuil2" et "Feuille1" ça ne serait pas plutôt "Feuil1" ?

Oui je suis sur, j'ai même refait un autre fichier ou j'ai laisse les noms par défaut (en changeant ca sur le code aussi) toujours le meme problème

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Jean-Eric a écrit :

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Voila le fichier en question

26excel.xlsm (75.21 Ko)
Rechercher des sujets similaires à "erreur execution 1004 definie application"