Find et cellules fusionnées

Bonsoir !

J'ai un problème un peu bête 8O

Je fais un classique :

Code:

---

1 2 3 4 5 6

For l = 10 To Cells(65536, "B").End(xlUp).Row Set e = Cells(l, "B").Find(What:="INTERFACE : A définir", lookat:=xlPart) If Not e Is Nothing Then MsgBox l End If Next

---

Le problème c'est que les cellules où je peux trouver les résultats de mon .Find sont toutes fusionnées de B à V. Comment puis-je donc obtenir quelque chose ? Si je mets une simple condition, par contre, sur un

Code:

---

Range("B" & l)

---

, je trouve un résultat.

Une idée? :mouarf:

Merci d'avance.

C'est bon, en fait, je me suis débrouillé comme ça :

Code:

---

1 2 3 4 5 6

With ActiveSheet.UsedRange Set e = .Find(What:="INTERFACE : A définir", lookat:=xlPart) If Not e Is Nothing Then Range(e.Address) = Replace(e, "A définir", Sheets(6).Cells(k, "D").Offset(0, 1).Value) End If End With

---

:mouarf: