Salut,
essaie en procédant en 2 étapes :
.Cells.Find(What:="RCS", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=True) Is Nothing Then
Sheets(1).Cells(i, 11).Value = Sheets(3).Cells.Find("RCS", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False).Activate
If Not ActiveCell.Value ...
Ensuite, fait une boucle avec cells(i, ActiveCell.Column).Value
@++
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~