Sub Compte1()
Dim f As Long, n As Long
f = Sheets("BDD").[C65536].End(xlUp).Row 'f = Evaluate("MATCH(""zzz"",BDD!C:C)")
n = Evaluate("SUMPRODUCT(N(ISNUMBER(LN(MATCH(BDD!B1:B" & f & "&""SalonEn-cours"",BDD!B1:B" & f & "&BDD!C1:C" & f & "&L1:L" & f & ",0)=ROW(1:" & f & ")))))")
MsgBox n 'une manière d'afficher
End Sub
Sub Compte2()
Dim f As Long, n As Long
f = Sheets("BDD").[C65536].End(xlUp).Row 'f = Evaluate("MATCH(""zzz"",BDD!C:C)")
n = Evaluate("COUNT(LN(MATCH(BDD!B1:B" & f & "&""SalonEn-cours"",BDD!B1:B" & f & "&BDD!C1:C" & f & "&L1:L" & f & ",0)=ROW(1:" & f & ")))")
MsgBox n 'une manière d'afficher
End Sub