Function BDLIRE_pmo( _
DataBase As Range, _
NomChampEquivalence As Range, _
NomChampReponse As Range, _
Critere As Range) As Variant
Dim var
Dim i&
Dim j&
Dim ChampDBCol&
Dim ChampCritCol&
var = DataBase
For j& = 1 To UBound(var, 2)
If NomChampEquivalence = var(1, j&) Then
ChampDBCol& = j&
ElseIf NomChampReponse = var(1, j&) Then
ChampCritCol& = j&
End If
Next j&
For i& = 1 To UBound(var, 1)
If var(i&, ChampDBCol&) = Critere Then
BDLIRE_pmo = var(i&, ChampCritCol&)
End If
Next i&
End Function