Sub ouvir()
With Index(gauche)
Select Case NbClic
Case Is = 1
Bureau.Open
Case Is = 2
Poste_de_travail.Open
MesDocuments.Select
Fichier.Open(Shell:=Find(extension))
End Select
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("B3,B5")) Is Nothing Then
Hyperlinks.Add Anchor:=ActiveCell, Address:=ActiveCell.Value
End If
End Sub