case avec if select case etc

bonjour

voici mon code qui ne marche pas, je trouve a bizarre d'autant plus
que c'est une ebauche de projet

je vous joint le code et le fichier

merci d'eclairer ma lanterne.

http://cjoint.com/?dgwgTNv0q0

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer
For i = 2 To 19

age = Range("f" & i)
cat = Range("a" & i)
course = Range("b" & i)
note_course = Range("c" & i)
natation = Range("d" & i)
note_natation = Range("e" & i)


If cat = "H" Or cat = "h" Then

Select Case age 'colonne age

Case 6 To 10: ' de 6 ans à 10 ans

' pour la course

Select Case course
Case 1 To 5:
note_course = "5"
Case 5.01 To 10:
note_course = "10"
Case "ne", "NE":
note_course = "NE"
Case Else:
note_course = ""
End Select

' pour la natation
Select Case natation
Case 0 To 50:
note_natation = "4"
Case 51 To 100:
note_natation = "8"
Case "ne", "NE":
note_natation = "NE"
Case Else:
note_natation = ""
End Select


Case 11 To 13: ' de 11 ans à 13 ans

' pour la course

Select Case course
Case 1 To 5:
note_course = "3"
Case 5.01 To 10:
note_course = "7"
Case "ne", "NE":
note_course = "NE"
Case Else:
note_course = ""
End Select

' pour la natation
Select Case natation
Case 0 To 50:
note_natation = "2"
Case 51 To 100:
note_natation = "4"
Case "ne", "NE":
note_natation = "NE"
Case Else:
note_natation = ""
End Select
End Select
End If
Next i


End Sub