fonction DROITEREG associée à une fonction SI (double condition)

Function Visible(r As Range)
Dim a(), n&
For Each r In r
    If Not r.EntireRow.Hidden Then
        ReDim Preserve a(n)
        a(n) = r
        n = n + 1
    End If
Next
Visible = a 'tableau à une dimension
End Function

=DROITEREG(Visible(bdd!C2:C69);Visible(bdd!D2:D69);VRAI;VRAI)

Function Filtrer(colonnes As Range, col1%, col2%, crit1$, crit2$, col%)
Dim tablo, a(), i&, n&
tablo = Intersect(colonnes, colonnes.Parent.UsedRange.EntireRow) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    If tablo(i, col1) = crit1 And tablo(i, col2) = crit2 Then
        ReDim Preserve a(n)
        a(n) = tablo(i, col)
        n = n + 1
    End If
Next
If n Then Filtrer = a 'tableau à une dimension
End Function

Private Sub Worksheet_Activate()
Worksheet_Change [O7] 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [O7:O8]) Is Nothing Then Exit Sub
Dim crit1$, crit2$, tablo, n&, i&, j%
crit1 = [O7] & "*": crit2 = [O8] & "*"
tablo = Sheets("bdd").[A1].CurrentRegion.Resize(, 4) 'matrice, plus rapide
n = 1
For i = 2 To UBound(tablo)
    If tablo(i, 1) Like crit1 And tablo(i, 2) Like crit2 Then
        n = n + 1
        For j = 1 To 4
            tablo(n, j) = tablo(i, j)
        Next j
    End If
Next i
With Sheets("Filtre")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    .UsedRange.ClearContents 'RAZ
    [C2].Name = "Y": [D2].Name = "X" 'RAZ
    .[A1].Resize(n, 4) = tablo
    If n > 1 Then
        .[C2].Resize(n - 1).Name = "Y" 'plage nommée
        .[D2].Resize(n - 1).Name = "X" 'plage nommée
    End If
End With
End Sub