remplacer select case par vlookup

bonjour

comment remplacer ces longues recherche par la fonction case par un
vlookup (recherchev)

ex
Sub abdo(i)

'BAREMES VERIFIES ET CONFORMES'

age = Range("g" & i)
sexe = Range("h" & i)
ABDOS = Range("R" & i)
VERIF_APTITUDE = Range("i" & i)

If VERIF_APTITUDE = "INAPTE" Then
Range("S" & i) = "NA"
End If

If sexe = "H" And VERIF_APTITUDE = "APTE" Then ' si le candidat
est un homme et apte

Select Case age 'colonne age

Select Case age 'colonne age

Case 18 To 39: ' de 18 ans à 39 ans

' pour lES abdos

Select Case ABDOS
Case "":
NOTE_ABDO = ""
Case 0 To 17:
NOTE_ABDO = "0"
Case 18 To 20:
NOTE_ABDO = "1"
Case 21 To 23:
NOTE_ABDO = "2"
Case 24 To 26:
NOTE_ABDO = "3"
Case 27 To 29:
NOTE_ABDO = "4"
Case 30 To 34:
NOTE_ABDO = "5"
Case 35 To 39:
NOTE_ABDO = "6"
Case 40 To 44:
NOTE_ABDO = "7"
Case 45 To 49:
NOTE_ABDO = "8"
Case 50 To 54:
NOTE_ABDO = "9"
Case 55 To 100:
NOTE_ABDO = "10"
Case "ne", "NE":
NOTE_ABDO = "0"
Case "IN", "in":
NOTE_ABDO = "NA"
End Select

remplacer par UN RECHERCHE V

merci