Function VolRev(Entité, Appélation, Année, Retour)
Dim DL%, i%
With Sheets(CStr(Année))
DL = .Range("A65500").End(xlUp).Row
tablo = .Range("A6:F" & DL)
For i = 1 To UBound(tablo)
If tablo(i, 1) = Entité And tablo(i, 2) = Appélation Then
If Retour = "Vol" Then
VolRev = tablo(i, 5)
Exit Function
ElseIf Retour = "Rev" Then
VolRev = tablo(i, 6)
Exit Function
End If
End If
Next i
End With
End Function