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