Sub toto()
Dim c, o$, i&, j&, odat(), sdat()
With Worksheets(1).Range("K1:K" & Range("A65536").End(xlUp).Row)
Set c = .Find("bidule", LookIn:=xlValues)
If Not c Is Nothing Then
o = c.Address
Do
i = i + 1
ReDim Preserve odat(1 To 1, 1 To i)
odat(1, i) = c.Offset(0, -10).Value
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> o
End If
End With
ReDim sdat(1 To i, 1 To 1)
For j = 1 To i
sdat(j, 1) = odat(1, j)
Next
Worksheets(2).Range("A1").Resize(i, 1).Value = sdat
End Sub