Salut,
Voici un fucntion de ce que tu demandes tu pêux l'appeler dpuis une boucle dasn une autre procédure
Private Function ConcatenerAvecCouleur(C1 As Range, C2 As Range, C3 As Range)
Dim Couleur1&, Couleur2&, Text1$, Text2$
With C1
LongueurTexte = Len(.Value)
Couleur = .Font.ColorIndex
Text1 = .Text
End With
With C2
LongueurTexte2 = Len(.Value)
Couleur2 = .Font.ColorIndex
Text2 = .Text
End With
With C3
.Value = Text1 & Text2
With .Characters(Start:=1, Length:=LongueurTexte).Font
.ColorIndex = Couleur
End With
With .Characters(Start:=LongueurTexte + 1, Length:=LongueurTexte2).Font
.ColorIndex = Couleur1
End With
End With
End Function
Sub Princ()
ConcaténerAvecCouleur [B7], [C7], [D8]
End Sub
A+++