Syntaxe variables avec CountIf

Haha pas de soucis !

Je viens de refaire un test et ça marche comme sur des roulettes !!!

Franchement merci beaucoup de ton aide, jy serais jamais arrivé sans toi :D

Re Oudouner,

Pour revenir sur le problème du FindNext, j'ai trouvé la solution:

A la fin de la macro, il faut remplacer

Code:

---

1 2 3

Set r2 = f.Range("A1:A" & derLig + 1).FindNext(r2)   Loop While Not r2 Is Nothing And r2.address <> address2

---

Par:

Code:

---

1 2 3

If ligneRecep >= derLig Then Exit Sub ' termine la macro Set r2 = .Range("A" & ligneRecep & ":A" & derLig + 1 - 1).Find(r2) Loop

---

ça a l'air de fonctionner ;)