Private Sub Worksheet_Change(ByVal Target As Range)
Dim s, fichier$, page$
If Target.Address = "$B$3" And Target.Cells(1, 1) <> "" Then
On Error Resume Next 'si s(1) n'existe pas
s = Split(Target, " Page ")
fichier = s(0)
page = s(1)
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & fichier
If Right(fichier, 3) = "pdf" And IsNumeric(page) Then _
SendKeys "+^n" & page & "~"
End If
End Sub