Private Sub LIENANNONCE_Click()
Dim c As Range
cherch = CODEBASE
On Error Resume Next
With Sheets("BASE EMPLOI")
Set c = .Range("A2:A2500").Find(cherch, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(0, 39).Hyperlinks(1).Follow True
Application.Goto .Range(c.Offset(0, 39).Hyperlinks(1).SubAddress)
Set c = Nothing
End If
End With
End Sub