Autres [RÉSOLU] Ajouter un Double Click cellule F2

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Target.Address = "$A$2" And Target.Count = 1 Then
    AfficherMasquerJoursFeries
     
    Range("A1").Select
    Exit Sub
    End If

      InitRISTABIL  'Module posologie
  If Target.Column = 1 Then Target.Value = Date: Cancel = True
  If Not Intersect(Range("C3:C" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
    Cancel = True
    If Range("A" & Target.Row) = "" Then
      MsgBox "Afficher la Date Colonne A"
      Exit Sub
    End If
     
    Target = IIf(Target = "RISTABIL", "", "RISTABIL")
  ElseIf Not Intersect(Range("B3:B" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
    Cancel = True
    Target = IIf(Target = Posologie, "", Posologie)  ' modifié le 19/10/2017
  End If
End Sub