Sub test()
Dim nb As Integer
nb = ActiveCell.Characters.Count
police = ActiveCell.Characters(Start:=nb - 1, Length:=1).Font.Name
taille = ActiveCell.Characters(Start:=nb - 1, Length:=1).Font.Size
couleur = ActiveCell.Characters(Start:=nb - 1, Length:=1).Font.Color
ActiveCell.Copy
ActiveCell.Value = ActiveCell.Value & " " & "aktya "
With ActiveCell.Characters(Start:=nb + 2, Length:=2).Font
.Name = "Arno Pro"
.FontStyle = "Normal"
.Size = 11
End With
With ActiveCell.Characters(Start:=nb + 4, Length:=4).Font
.Name = "Square721 BT"
.FontStyle = "Normal"
.Size = 11
End With
With ActiveCell.Characters(Start:=nb + 7, Length:=2).Font
.Name = police
.Size = taille
.Color = couleur
End With
End Sub