Je t'avais fait une petite vidéo mais tant pis... j'ai modifié en rouge les AD15 en AD 153 qui correspond à mon tableau réel.

Tu parle d'une formule dans AD1 mais je ne comprends pas à quoi correspond le AD1? Dois-je y mettre quelques chose?

Lorsque j'exécute le code j'ai :

Erreur d'exécution '9'

L'indice n'appartient pas à la sélection

Et quand je le fait pas à pas il plante à la ligne en vert.

Peux-tu m'envoyer le fichier excel d'où tu a prit le screen que t m'avais envoyé en premier avec les couleurs comme je le voulais?

Merci d'avance pour ton retour

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If val_cel = True Then val_cel = False: Exit Sub
lance
Application.ScreenUpdating = True
End Sub

Sub lance()
Dim tablo

' dechet bleu
' rempl vert
' sav rouge
' solde jaune
' violet total

If IsError(Range("AD1")) Then val_cel = True: Range("AD153").Value = "": Exit Sub  ' ligne pour tester si le resultat est "". Si oui, il n'y aura rien dans la cellule "AD153". A toi de voir.
tablo = Split(Range("AD1").Value, ":")
'prem_caract = Len(tablo(0))
tablo_01 = Split(Mid(Range("AD1"), Len(tablo(0)) + 3), "       ")
t0 = tablo_01(0)    ' rempl
tablo_02 = Split(tablo_01(1), "  ")
t1 = tablo_02(0)    ' dechet
t2 = tablo_02(1)    ' soldes
tablo_03 = Split(tablo_01(2), "  ")
t3 = tablo_03(0)    ' sav
t4 = tablo_03(1)    ' total

val_cel = True
Range("AD153") = Range("AD1").Value

Range("AD153").Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 50  ' rempl
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10, Length:=Len(t1)).Font.ColorIndex = 41 ' dechet
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2, Length:=Len(t2)).Font.ColorIndex = 44 ' soldes
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7, Length:=Len(t3)).Font.ColorIndex = 3 ' sav
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7 + Len(t3) + 2, Length:=Len(t4)).Font.ColorIndex = 7 ' total
val_cel = False

End Sub