double click pour afficher 15 et noicir la cellule

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

If InStr(1, "11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41", Target.Row) > 0 Then
    Target = 15: Cancel = True
End If

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim p As Range 'déclare la variable p (Plage)
Select Case Sh.Name 'agit en fonction du nom de l'onglet
Case "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche" 'définit les cas
    Set p = Range("C11:BD11") 'définit la varaible p
 
    For x = 13 To 41 Step 2 'boucle sur les lignes autorisées
        Set p = Application.Union(p, Range(Cells(x, 3), Cells(x, 56))) 'redéfinit la variable p
    Next x 'prochaine ligne autorisée de la boucle
 
    'si le double clic n'a pas lieu dans la plage p, sort de la procédure
    If Application.Intersect(Target, p) Is Nothing Then Exit Sub
 
    Cancel = True 'évite le mode édition lié au double clic
 
    If Target.Value = 15 Then 'condition : si la cellule contient 15
        Target.Value = "" 'efface le contenu de la cellule (donc la MFC supprime le fond noir)
    Else 'sinon
        Target.Value = 15 'attibut la valeur 15 (donc la MFC colorie la cellule de noir)
    End If 'fin de la condition
End Select 'fin de l'action en fonction du nom de l'onglet
End Sub