VBA:Fonction COUNTIF ne fonctionnant pas comme je le souhaite

Bonjour à tout le forum.

Voici mon problème:

J'ai un tableau de I12 à V18 avec en entête en ligne 11 les différents jours de la semaine.
En colonne A, à partir de la ligne 12 j'ai des codes lambda.
A partir de la ligne 12, de la colonne B (COLONNE 2) à la colonne H 5 colonne 8) j'ai différents jours de semaine indiqué dans chaque cellule de cette zône. Ce qui signifie que les différent codes lambda ( en colonne A) peuvent être concernés par différents jours de la semaines indiqué sur la même ligne de la colonne B à H.
L'idée est de sélectionné dans le tableau les cellules et en cliquant sur un bouton voir dans chaque cellule sélectionnée la valeur de la cellule M2 si le code lambda est concerné par le jour de semaine correspondant ( ligne 11 de la cellule sélectionné).

Pour cela j'ai donc écrit le code suivant ( avec l'aide du forum):

Private Sub CommandButton1_Click()

Dim p As Range
Dim Maplage As Range

Set Maplage = Selection

For Each p In Maplage
If Application.WorksheetFunction.CountIf(Range(Cells(p.Row, 2), Cells(p.Row, 8)), Cells(p.Column, 11)) > 0 Then
p.Value = Range("M2").Value
Else
p.Value = ""
End If

Next p

End Sub

J'utilise comme vous le voyez la fonction countif. Je pensait que cela allait fonctionner mais cela ne donne pas du tout le résultat attendu. Et je ne vois pas du tout en quoi mon code n'est pas bon. Même en regardant le résultat que cela donne je n'arrive pas en déduire comment modifier mon code.

Je vous joint un fichier afin que cela soit beaucoup plus explicite. Tout y est précisé avec le résultat obtenu et le résulat souhaité.

Pouvez vous m'aider?

Merci d'avance pour votre aide

Cordialement

Zeltron