inscrire un mot dans une case sous condition

Bonjour,

J'ai une question toute simple:

je souhaiterais tester des valeurs dans des cases excel et renvoyer OK dans la case juste a coté si la valeur est superieure à 70.

Je voudrais savoir comment modifier ce code pour qu'il fonctionne.

Merci bc pr vootre aide

front33

Sub testrsi()

Dim i, j As Integer

    For j = 3 To 156 Step 4
   
        For i = 3 To 130
       
        If Cells(i, j).Value > 70 Then
       
        Cells(i, j + 1) = "OK"
       
        End If
       
        Next i
   
    Next j

End Sub

Merci pour ta reponse. Je n'osais pas mettre un value sachant que c'est un mot et nom un nombre...

Sinon rien ne se passe quand je fais tourner la macro.

Est il possible de joindre mon fichier excel? comment?

Merci d'avance

Front 33

en fait ça marche 

merci encore

Front 33