Erreur sur macro calendrier

Bonjour le Forum,

Dans mon fichier excel, j'arrive à choisir une date sur mon calendrier dans les colonnes 7 et 8, mais voila quand je double clique sur une autre cellule en dehors de ces colonnes j ai une date qui apparait.

Le problème se produit une fois que la date est choisie à l'aide du calendrier.

Quelque pourrait m'aider à corriger l'erreur dans ma macro ?

Merci d'avance

Christian

Bonjour

A tester

'Calendrier
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  'If Target.Count > 1 Then Exit Sub ' pour éviter la sélection de plus d'une cellule
  If Target.Column = 7 Or Target.Column = 8 And Target.Row >= 1 Then
    If Target.Column = 6 Then Exit Sub
    Cancel = True
    Calendrier1.Show
    If date2 > 0 Then
      Target.Value = date2
    End If
  End If
End Sub

Çà fonctionne très bien.

Encore merci Banzai64 pour ton aide.