Erreur éxécution '9

Bonjour a tous et a toutes,

Mon petit bout de code ci-dessous me donne une erreur d'exécution '9' : L'indice n'appartient pas à la sélection (Sur la ligne ou il y a écrit 'ICI')

Sub JoueFleche()

Dim Nom_Classeur_Macro As String
Dim Fleche As String
Dim o As Integer
Dim p As Integer

Nom_Classeur_Macro = ActiveWorkbook.Name

msg = "Etes vous sur le Projet : Eure ?"
StyleBoîteDialogue = vbYesNo + vbCritical + vbDefaultButton2
Title = "Choix Projet"
réponse = MsgBox(msg, StyleBoîteDialogue, Title)
If réponse = vbYes Then
Fleche = FlecheEure
Else
Fleche = FlecheDorsal
End If

For p = 2 To 10000
    For o = 2 To 81
        If Workbooks(Nom_Classeur_Macro).Sheets("C6").Cells(p, 20).Value > Workbooks(Nom_Classeur_Macro).Sheets(Fleche).Cells(o, 1).Value Then         'ICI'
            If Workbooks(Nom_Classeur_Macro).Sheets("C6").Cells(p, 20).Value < Workbooks(Nom_Classeur_Macro).Sheets(Fleche).Cells((o + 1), 1).Value Then
            Workbooks(Nom_Classeur_Macro).Sheets("C6").Cells(p, 20).Value = Workbooks(Nom_Classeur_Macro).Sheets(Fleche).Cells(o, 3).Value And             Workbooks(Nom_Classeur_Macro).Sheets(Fleche).Cells(o, 3).Interior.Color = RGB(250, 170, 70)
            End If
        End If
    Next o
Next p

End Sub

Est ce que quelqu'un aurait une idée ?
Merci bien !

Bonjour,

Fleche = FlecheEure
Else
Fleche = FlecheDorsal

Si FlecheEure et FlecheDorsal sont des variables > au moment de l'erreur > celle utilisée est vide.

Si ce sont des noms de feuilles > il faut écrire ...

Fleche = "FlecheEure"
Else
Fleche = "FlecheDorsal"

ric

Effectivement ce sont des noms de feuilles !
J'essaye tout ca demain mais effectivement ca devrait marché ^^ !

Merci bien