Erreur de type : Problème de syntaxe ??

Kernoz

XLDnaute Occasionnel
Bonjour à tous, j'ai un petit bout de code qui ne veut pas fonctionner mais je ne pige pas pourquoi ..

"Erreur d'exécution '13' : Incompatibilité de type"

Voici le code :

Code:
Dim i As Long
With ThisWorkbook.Sheets("Resultats SC")
    For i = .Range("AI" & .Rows.Count).End(xlUp).Row To 31 Step -1
        If .Range("F" & i) = 6278 And .Range("V" & i) = 0 And .Range("AI" & i).Value > .Range("AI" & i - 1).Value               
       Then .Range("AI" & i - 1).Value = .Range("AI" & i).Value 
Next i
End With

D'avance merci pour votre aide :)
 

Statistiques des forums

Discussions
312 180
Messages
2 085 991
Membres
103 081
dernier inscrit
jeromeolivier.raymond@wat