Dim plage as range, c as range, firstAdres as string, derLig as long
DerLig = Split(Worksheets("Feuil1").UsedRange.Address, "$")(4) 'derniere ligne renseignée de la feuille
Set plage = Range("A2:A" & derlig)
with plage
Set c = .find(MS1)
If not c is nothing then
firstAdres = c.address
do
Range("A" & c.row - 2) = c.value
set c = .FindNext(c)
Loop while not c is nothing and c.Address <> firstAdres
endif
end with