OUPS !!! cell Format Suite_4

Si tu avais lu tes précédent messages, tu aurais vu que je t'avais déjà répondu.
Avec cette variante cela devrait marché ! Tu reprend ainsi le même format
que la cellule contenant les 100€.

Dim T1 As String, T2 As String
T1 = Range("A2").Value
T2 = Format(Range("B2").Value, Range("B2").NumberFormat)
Range("C2").Value = T1 & " " & T2
Range("C2").Characters(Start:=Len(T1) + 2, _
Length:=Len(T2)).Font.ColorIndex = 3

LeChat

C'est pas très sympa de me dire que je n'ai pas lu mes précédentes réponses, chose que naturellement je fais puisque j'ai posée ma question!

Bref essaye ton code car le tien ne fonctionne pas du tout par rapport à ma demande...

MERCI

On ne s'énerve pas ......