Mise en forme sur concaténation...

Function ConcatPlage(plage As Range, separateur As String) As String  
    Dim c As Range  
    Dim rep As String  
    For Each c In plage  
        rep = rep & separateur & c.Value  
    Next c  
    ConcatPlage = Mid(rep, Len(separateur) + 1)  
End Function

Private Sub Worksheet_Change(ByVal Target As Range)  
    Dim fini As Boolean, p As Long  
    If Intersect(Target, Range("A1:K24")) Is Nothing Then Exit Sub  ' là, c'est en surveillant les x cellules où se trouvent les données de départ  
    Application.EnableEvents = False  
    With Cells(Target.Row, 12) 'même ligne, colonne 12 (L)  
        .Value = ConcatPlage(Cells(Target.Row, 1).Resize(1, 11), " ")    ' là, on précise la cellule où opérer la concaténation, sans passer par une formule dans la feuille-même (sinon, c'est tout rouge)  
        .Font.ColorIndex = 0    'là, on dit que c'est tout en noir par défaut  
        If Left(.Value, 1) = UCase(Left(.Value, 1)) Then ' si 1er caractère majuscule  
            .Characters(1, 1).Font.ColorIndex = 3    ' là, on précise qu'on veut l'initiale en rouge  
        End If  
        p = InStr(.Value, " ")    ' là on sépare les mots de la chaîne de concaténation  
        While p > 0  
            If Mid(.Value, p + 1, 1) = UCase(Mid(.Value, p + 1, 1)) Then ' si majuscule  
                .Characters(p + 1, 1).Font.ColorIndex = 3    ' là, on applique aussi le rouge à l'initiale du mot à l'intérieur de la chaîne  
            End If  
            p = InStr(p + 1, .Value, " ")    ' et là on passe au suivant - soit, faire une boucle  
        Wend  
    End With  
    Application.EnableEvents = True  
End Sub