Dim xRg As Range
Set xRg = Nothing
Set xRg = Cells.Find(What:="version_log_actif", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)
If xRg Is Nothing Then MsgBox "Pas trouvé!" Else xRg.Activate