[COLOR=blue]Sub[/COLOR] Macro1_3()
[COLOR=blue]With[/COLOR] Range("B17")
[COLOR=blue]If[/COLOR] .Comment [COLOR=blue]Is Nothing Then[/COLOR]
.AddComment
[COLOR=blue]With[/COLOR] .Comment
.Visible = [COLOR=blue]False[/COLOR]
.Text Text:= _
"bloc 1" & Chr(10) & "-Longueur de cable vidéo =" & Chr(10) & "-Diamètre de cable vidéo ="
Txt = Len(.Text)
[COLOR=blue]With[/COLOR] .Shape.TextFrame
.AutoSize = [COLOR=blue]True[/COLOR]
.Characters(1, Txt).Font.Bold = [COLOR=blue]True[/COLOR]
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]