Range("A8").Select
ActiveCell = UCase(CompanyName1.Value) & vbCrLf & Address1.Value & vbCrLf & UCase(Country1.Value)
nbre1 = Len(CompanyName1.Value)
nbre2 = Len(ActiveCell)
nbre3 = Len(Country1.Value)
With ActiveCell.Characters(Start:=1, Length:=nbre1).Font
.FontStyle = "Gras"
End With
With ActiveCell.Characters(Start:=nbre1 + 1, Length:=nbre2 - nbre3 - nbre1).Font
.FontStyle = "Normal"
End With
With ActiveCell.Characters(Start:=(nbre2 - nbre3), Length:=nbre3).Font
.FontStyle = "Gras"
End With