Modifier la couleur de certains caractères dans une cellule

Bonjour au forum,

J'essaie de modifier la couleur de certains caractères ayant un ordre précis à l'intérieur d'une cellule.

Par exemple, en A1, A9,N9 et A74, tous les caractères sont en RGB(191,191,191), sauf les suites "ATGC" qui elles sont en RGB(217,217,217) :

ATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATGCTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGATTAGCATCGTAATCGATCGATGCTAATCGATGCCGAT

Serait-il possible de modifier ces deux couleurs via une macro ?

J'ai testé avec .Characters mais sans succès...

Merci d'avance pour votre aide

Bonsoir Nico, bonsoir le forum,

Essaie comme ça :

Sub Macro1()
Dim T As String 'déclare la variable T (Texte)
Dim I As Integer 'déclare la variable I (Incrément)

T = Range("A1").Value 'définit le texte T (à adapter à ton cas)
For I = 1 To Len(T) 'boucle sur tous les caractères I du texte T
    'si le texte de 4 caractères commençant au caractère I vaut "ATGC", colore ces 4 caractères de rouge (couleur à adapter)
    'incrémente I de 3 caractères
    If Mid(T, I, 4) = "ATGC" Then Range("A1").Characters(I, 4).Font.ColorIndex = 3: I = I + 3
Next I 'prochain caratècre de la boucle
End Sub

Bonsoir ThauThème,

C'est parfait... Merci infiniment