msg = MsgBox("Vous êtes sur d'avoir besoin d'aide ???:", vbYesNo, "Attention !")
If msg = 6 Then
ActiveDocument.FollowHyperlink Address:="H:\Documents and Settings\Jean - Marie\Mes documents\1\1Jean-Marie\Gestion Stock\Gestion de stock.doc"
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="3"
End If