Mettre en gras que le nom et pas le prenoms qui sont dans la meme cellule

[B][COLOR="DarkSlateGray"]Sub toto()
    With ActiveCell.Characters(Start:=1, Length:=InStr(1, ActiveCell.Value & " ", " ") - 1).Font
      .FontStyle = "Gras"
      .Size = Application.StandardFontSize + 4
   End With
End Sub[/COLOR][/B]

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oCel As Range
   Application.ScreenUpdating = False
   For Each oCel In Selection.Cells
      With oCel.Font: .Size = Application.StandardFontSize: .Bold = False: End With
      If Not IsEmpty(oCel) Then
         With oCel.Characters(Start:=1, Length:=InStr(1, oCel.Value & " ", " ") - 1)
            .Text = UCase(.Text)
            With .Font
               .FontStyle = "Gras"
               .Size = Application.StandardFontSize + 3
            End With
         End With
         With oCel.Characters(Start:=InStr(1, oCel.Value & " ", " "), Length:=Len(oCel.Value) - InStr(1, oCel.Value & " ", " ") + 1)
            .Text = WorksheetFunction.Proper(.Text)
         End With
      End If
   Next
   Application.ScreenUpdating = True
End Sub[/B][/COLOR]