XL pour MAC Afficher la somme de valeurs uniquement dans des cellules adjacentes en lignes

Function NbJoursConsecutifs(Plage As Range, N%)
Dim critere$, pc%, i%, test As Byte, deb%, j%
critere = "#CP#REP#RTT#" 'à adapter
pc = Plage.Count
For i = 1 To pc
    test = InStr(critere, "#" & UCase(Plage(i)) & "#")
    If deb = 0 And test Then deb = i
    If deb And (test = 0 Or i = pc) Then j = i + Sgn(test) - deb: deb = 0: If j >= N Then NbJoursConsecutifs = NbJoursConsecutifs + j
Next
If IsEmpty(NbJoursConsecutifs) Then NbJoursConsecutifs = "" 'masque les valeurs zéro
End Function

=MAX(FREQUENCE(SI(B3:AS3="CP";TRANSPOSE(LIGNE(INDIRECT("1:"&COLONNES(B3:AS3)))));SI(B3:AS3<>"CP";TRANSPOSE(LIGNE(INDIRECT("1:"&COLONNES(B3:AS3)))))))

Function NbJoursConsecutifs(Plage As Range, N%)
Dim critere$, pc%, i%, test As Boolean, deb%, j%
critere = "CP" 'à adapter
pc = Plage.Count
For i = 1 To pc
    test = UCase(Plage(i)) = critere
    If deb = 0 And test Then deb = i
    If deb And (Not test Or i = pc) Then j = i - test - deb: deb = 0: If j >= N Then NbJoursConsecutifs = NbJoursConsecutifs + j
Next
If IsEmpty(NbJoursConsecutifs) Then NbJoursConsecutifs = "" 'masque les valeurs zéro
End Function

Function NbJC(Plage As Range, N%)
Dim critere$, pc%, i%, test As Byte, deb%, j%
critere = "#CP#REP#RTT#" 'à adapter
pc = Plage.Count
a = 0
For i = 1 To pc
    test = InStr(critere, "#" & UCase(Plage(i)) & "#")
   '--1 : Compte si N jours consécutifs pour les critères
    If test = 0 Then
       If a >= N Then NbJC = IIf(NbJC = 0, a, NbJC + a)
    a = 0
    End If
    If test > 0 Then a = a + 1
Next
If IsEmpty(NbJC) Then NbJC = "" 'masque les valeurs zéro
End Function