XL 2016 Mettre 0 décalé de 20 cases après avoir trouvé un Texte

[Stéfane]

Sub Mettre_0_Cellule_20
Dim zone As Range
Dim der_ligne As Long
Dim I&
    Set zone = Range("C28").CurrentRegion
    der_ligne = zone.Rows(zone.Rows.Count).Row
        For I = der_ligne To 1 Step -1
            If Cells(I, 3).Text = "TEXT 1 " & "TEXT 2" Then
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''       
             Rows(I, 20).Select            C'est là que je bloque
             Selection.FormulaR1C1 = 0
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''             
            End If
        Next
End Sub

Avec cette macro, je souhaite mettre "0" dans la cellule qui se trouve 20 cellules vers la droite sur la même ligne, après la détection des mots ''TEXT 1'' et ''TEXT 2'' dans la colonne "C"
J'ajouterais d'autres mot par la suite, à rechercher, pour réaliser la même démarche.

Auriez-vous svp une solution pour compléter cette macro.

Merci pour votre aide

 

[Staple1600]

Re

=>Sylvanu
C'est n'est pas désespérant.
Cela confirme votre impression.
La boucle est bouclée
Vous sortez de la ronde pour entrer dans l'Aronde (oui je sais elle est facile mais Papa jadis en conduisit une)

Par contre ce qui est désespérant, c'est je n'ai plus de bières et que le dépanneur est fermé.

=>Stéfane
Merci pour cette discussion qui m'aura mené ici