Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TheFullPath As String
If Target.Count > 1 Or Target.Column > 1 Or Target.Row = 1 Then Exit Sub
If Target.Value <> "" Then
TheFullPath = "C:\Documents and Settings\Planète Bloc\Mes documents\factures\" & Target.Value & ".pdf"
ThisWorkbook.FollowHyperlink TheFullPath, NewWindow:=True
End If
End Sub