Bonjour les développeziens et les developpeziennes.

Je voudrai faire une boucle sur cette macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub renomer_tlssyp()
 
' renomer_tlssyp Macro
 
 
    Windows("Classeur1").Activate
    Sheets("Montants facturés par carte").Select
    Columns("E:E").Select
    selection.Find(What:="TLSSYP", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(rowOffset:=0, columnOffset:=-4).Activate
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],Codex!C:C[2],2,FALSE)"
    selection.Copy
    ActiveCell.Offset(rowOffset:=0, columnOffset:=4).Activate
    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(rowOffset:=0, columnOffset:=-4).Activate
    Application.CutCopyMode = False
    selection.ClearContents
 
End Sub
Et je ne sais pas comment faire.

J'explique un peu plus ce que je cherche a faire de cette boucle.

Je voudrai que tant que la macro trouve TLSSYP dans la colonne elle boucle et s'arrête des qu'elle ne trouve plus de TLSSYP.

j'aurai besoin de vos lumières pour cette solution ^^ je vous remercie par avance de votre aide que vous allez m'apporter