VB Access : Selection couleur sur cellule Excel

Bonjour,

Dans un module Access et avant le chargement d'un fichier excel dans une table, je voudrais contrôler la couleur d'une cellule et modifier éventuellement la couleur.

J'ai crée le code suivant mais j'ai une erreur lors de l'identification de la couleur

   For i = 1 To 700
        xlSheet.Range("I" & i).Activate
        couleur = xlSheet.Range(cellule).Interior.ColorIndex
        If couleur = 15 Or _
           couleur = 48 Then
            xlSheet.ActiveCell.FormulaR1C1 = "N/A"
        End If
    Next i

Avez-vous une idée d'où est l'erreur

Merci d'avance pour votre aide