Sub Recherche()
Sheets("BoM").Select
Columns("O:O").Select
Selection.Find(What:=[COLOR="Red"]Valeur en M2[/COLOR], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub