Construction d'une macro

Alors, j'ai réussi à écrire quelque chose qui ne se bloque pas, mais ça ne boucle pas. Seule la première ligne est traitée. J'ai testé plusieurs façons sans succès.
Pour avoir déjà fait un peu de ksh, je suis plus à l'aise avec la fonction FOR, donc j'aimerai rester sur ce mode. Si besoin je ferai plusieurs boucles pour faire mes différents traitements.

Que pensez-vous de ce que j'ai rédigé ?

Sub Macro2()

    Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
    DL = Range("A" & Rows.Count).End(xlUp).Row 'defini la position de la dernière ligne

    For i = 2 To DL 'boucle de 2 a DL
        Dim trouve As Range 'déclare la variable trouve (terme à chercher)
        Set trouve = Cells.Find("STOCKEEPREAFFECTEE") 'défini le terme à chercher
        If Not trouve Is Nothing Then trouve.Offset(0, 3).Value = "ATTENTE" 'écrit une valeur trois cellules plus loin
    Next i 'prochaine ligne de la boucle

End Sub

APetit a écrit :

Steelson, j'ai parfaitement compris le code exemple que tu avais donné avec tes explications, merci beaucoup.

Est-ce que c.Address correspond bien à la position de la cellule ?

Le principal pour moi n'est pas de résoudre mais d'aider à comprendre, donc c'est parfait sur le prmier point.

Pour le second, OUI c.address (avec 2 d) est bien l'adresse de la cellule trouvée

Continue ligne à ligne, c'est en effet plus simple à comprendre et développer.