Sub f()
Dim Signature$, Commentaires, X As Long
Signature = Application.UserName & Format(Date, "\:dd/mm")
Commentaires = "=> " & InputBox("Saisir commentaires suivi,SVP", "Suivi")
X = Len(Commentaires) * 1
With ActiveSheet.Shapes(1)
.TextFrame2.TextRange = Commentaires & vbCrLf & Signature
.TextFrame.Characters.Font.ColorIndex = 9
.TextFrame.Characters.Font.Size = 14
With .TextFrame.Characters(Start:=1, Length:=X).Font
.Name = "Arial": .Bold = True
End With
With .TextFrame.Characters(Start:=X + 1, Length:=Len(Signature) + 1).Font
.Name = "Calibri": .Bold = False
End With
.Line.Visible = msoFalse
.Fill.ForeColor.RGB = RGB(166, 201, 75)
End With
End Sub