Je bloque juste sur un petit détail avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub Copie()
Set ma = Range("C1").MergeArea
If ma.Address = "$C$1:$D$3" Then
ma.Value = Range("H1").Value & Chr(13) & Chr(10) & Range("H2").Value & Chr(13) & Chr(10) & Range("H3").Value
End If
End Sub
Le code fonctionne très bien mais j'aimerai juste que seulement le texte Range("H1").Value soit en rouge.
Avez-vous une idée ?