Dlig = ActiveSheet.UsedRange.Rows.Count
Dcol = ActiveSheet.UsedRange.Columns.Count
For i = 1 To Dlig ' Boucle sur les lignes
For j = 1 To Dcol ' boucle sur les colonnes
If (Cells(i, j) Like "*GTexts(*") Or (Cells(i, j) Like "*gtTexts(*") Or (Cells(i, j) Like "*Gtexts(*") Or (Cells(i, j) Like "*gTexts(*") Then
DebutChaineGTexts = InStr(1, Cells(i, j), "GTexts", 1)
DebutChaineACopier = DebutChaineGTexts + 7
SelectionChaineDeCaractereDInteret = Mid(Cells(i, j), DebutChaineACopier, 3)
' Jusque là, ça va (le chiffre faisant de 1 à 3 caractères, je prends le pire cas et je retrairerai plus loin
' Après ça se gâte, car comme dans une même cellule, il peut y avoir plusieurs fois la une chaîne de caractères "GTexts(xx)", mon idée était remplacer celle que je venais de prendre par d'autres caractères et de faire un j = j-1 pour qu'il rescanne la même cellule
St = Cells(i, j)
Mid(St, DebutChaineGTexts, 6) = "xxxxxx"
j = j - 1
' Mais ça ne fonctionne pas, les caractères ne sont pas remplacés
End If
Next j
Next i