Recherche avec plusieurs critères

Function Tarif(Vol As Range, Epaisseur As Range, Longueur As Range, Largeur As Range)

If Epaisseur = "" Then
    Tarif = ""
    Exit Function
End If
If Vol < 5 Then
    Set tablo = Range("TabInfCinq")
Else
    Set tablo = Range("TabSupCinq")
End If

Select Case Epaisseur
    Case 27
        ligne = 1
    Case 34
        ligne = 5
    Case 41
        ligne = 9
    Case 54
        ligne = 13
    Case 65
        ligne = 17
End Select

Select Case True
    Case Largeur <= 90
        ligne = ligne + 1
    Case Largeur > 90
        ligne = ligne + 2
End Select

Select Case True
    Case Longueur <= 800
        colonne = 2
    Case Longueur >= 1501
        colonne = 4
    Case Else
        colonne = 3
End Select

Tarif = WorksheetFunction.Index(tablo, ligne, colonne)
End Function