Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Integer, Ligne, Rencontre As Long
Ligne = Target.Row
Unprotect
If Target.Column = 1 And Cells(Ligne, 2) <> "" Then 'Si en dehors colonne 1 on sort de la procédure
'----------------------- Selectionne la feuille avec le lien hypertexte, puis la supprime -------------------------
Target.Offset(1, 2).Hyperlinks(2).Follow NewWindow:=False, AddHistory:=True
Sheets("doha2").Select
ActiveWindow.SelectedSheets.Delete
'----------------------- Supprime les 09 lignes correspondant à la rencontre --------------------------------------
I = MsgBox("Voulez-vous supprimer la rencontre ?", vbOKCancel, "Suppression") ' Affichage d'une boite de dialogue
If I = vbCancel Then Exit Sub ' si clique sur non = sort de la procédure
Rencontre = Target.Rows()
Rows(Rencontre).Delete
Cancel = True
'---------------------- Fin de procédure et retour sur la feuille -----------------------------------------------
Target.Offset(1, 3).Select
End If
Protect
End Sub