XL 2013 Fonction gras

Sub Test()
Gras [A1:A10]
End Sub

Sub Gras(r As Range)
 r.Font.Bold = True
End Sub

Sub Gras(ByVal Rng As Range)
   Rng.Font.Bold = True
   End Sub
Sub Test()
   Cells(1, "A").Value = "Un texte"
   Gras Cells(1, "A")
   End Sub

Function Rouge(Texte As String)
    Range(Application.Caller.Address).Font.Color = vbRed
    Rouge = Texte
End Function

Function Gras(Texte As String)
    Range(Application.Caller.Address).Font.Bold = True
    Gras = Texte
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
Dim x$, L%, r As Range, i%
x = LCase([C2]): L = Len(x)
Application.ScreenUpdating = False
Set r = Range("A2", Range("A" & Rows.Count).End(xlUp))
If r.Row = 1 Then Exit Sub
r.Font.Bold = False: r.Font.Italic = False 'RAZ
If x = "" Then Exit Sub
For Each r In r
    For i = 1 To Len(r) - L + 1
        If LCase(Mid(r, i, L)) = x Then
            With r.Characters(i, L).Font
                .Bold = True 'gras
                .Italic = True 'italique
            End With
        End If
Next i, r
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&, L%
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Range("D1:I" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    tablo = .Value
    For i = 2 To UBound(tablo)
        tablo(i, 1) = Trim(tablo(i, 2) & " " & tablo(i, 3) & vbLf & Format(tablo(i, 4), "dd mmm yyyy") & vbLf & Format(tablo(i, 5), "0000000000") & vbLf & tablo(i, 6))
        If tablo(i, 1) = vbLf & vbLf & vbLf Then tablo(i, 1) = ""
    Next
    .Offset(1).Font.Bold = False 'RAZ
    .Value = tablo 'restitution
    For i = 2 To UBound(tablo)
        L = Len(LTrim(tablo(i, 2)))
        If L Then .Cells(i, 1).Characters(1, L).Font.Bold = True
        L = Len(RTrim(tablo(i, 6)))
        If L Then .Cells(i, 1).Characters(Len(tablo(i, 1)) - L + 1, L).Font.Bold = True
    Next
End With
Application.EnableEvents = True 'réactive les évènements
End Sub