Problème avec un find

Bonjour, j'essaye de faire un code qui dit que si il ne trouve pas l'élément en paramètre alors il doit le coller dans cette ligne sauf que je ne comprends pas ça ne marche juste pas.

Code:

---

1 2 3

If .Worksheets("Feuil" & compteur).Cells(4, Columns.Count).Find(.ActiveSheet.Range("B" & b).Value) Is Nothing Then .Worksheets("Feuil" & compteur).Cells(4, Columns.Count).End(xlToLeft).Offset(0, 1).Value = .ActiveSheet.Range("B" & b).Value End If

---

b et compteur sont des entiers.

Je n'ai pas trop compris ce que tu souhaites faire mais je pense que ton erreur se situe à Cells(4, Columns.Count).

Déjà, il est rare de limiter la plage de recherche d'un Find à une seule cellule.
Ensuite, il est rare de faire des recherches sur la dernière cellule possible d'une colonne. On ne parle pas de la dernière cellule utilisée mais de la limite d'Excel.

Remplace ce passage par Range("A4", .Worksheets("Feuil" & compteur).Cells(4, Columns.Count).End(xlToLeft)), ça devrait mieux fonctionner.

Merci ça fonctionne.