Sub JusquÀSTOP()
Dim CelDéb As Range, CelFin As Range
Set CelDéb = ActiveCell
Set CelFin = CelDéb.EntireColumn.Find(What:="STOP", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(-1)
Application.Range(CelDéb, CelFin).FormulaR1C1 = CelDéb.FormulaR1C1
End Sub