Private Sub Worksheet_Change(ByVal Target As Range) ' Se déclenche lorsqu'une cellule est modifiée ' Target est un objet de type RANGE correspondant à la cellule modifiée If Target.Row = 1 And Target.Column = 2 Then 'si je suis en "B1" alors.. If Target.Value = "X" Then 'Si ma cellule contient X alors... 'Ouverture du fichier nommé "X" openFile ("c:\tmp\X.pdf") End If End If End Sub Function openFile(strFilePathName As String) Dim myShell As Object Set myShell = CreateObject("WScript.Shell") myShell.Run strFilePathName End Function