Erreur de type 13 VBA

[ad98]

Bonjour à tous je sollicite votre aide car j'ai fait une macro qui me permet de faire une recherche par mot sur toutes les feuilles de mon fichier et qui me copie colle la ligne qui contient le mot recherché. Cette macro fonctionne parfaitement sur un autre de mes fichiers mais là j'ai une erreur qui s'affiche et je ne vois pas d'où elle vient. Pouvez vous m'aider ?
Merci beaucoup

 

[ad98]

Désolé le fichier n'était pas le bon voila le bon Merci à tous

 

[D.D.]

Hello.

Tu as une erreur dans la cellule Q2 de "Affinage - IX".
Pour trouver j'ai ajouté la ligne
Range("feuil1!A1") = i& & "---" & j& & "---" & S.Name

dans module17 entre
For j& = 1 To UBound(var, 2)
→ Range("feuil1!A1") = i& & "---" & j& & "---" & S.Name
A$ = Trim(var(i&, j&))

Bien à toi.

 

[ad98]

Merci beaucoup pour votre aide.
Bon week end