Sub totoboucle()
'modif suite remarques de PascalXLD
Dim Nbreligne as Long, i as long
Nbreligne = Range("A65536").End(xlup).row
For i = 1 To Nbreligne
With Cells(i, 3)
.Value = Cells(i, 1) & "|" & Cells(i, 2)
.Characters(1, Len(Cells(i, 1))).Font.ColorIndex = 4
With .Characters(Len(Cells(i, 1)) + 1, 1).Font
.ColorIndex = 3
.FontStyle = "Gras"
End With
.Characters(Len(Cells(i, 1)) + 2, Len(Cells(i, 2))).Font.ColorIndex = 5
End With
Next
End Sub