With fplan.Cells(result.Row, début)
.AddComment
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
temp = fbd.Cells(i, 1) & vbLf
temp = temp & fbd.Cells(i, 5)
.Comment.Text Text:=temp
.Comment.Shape.TextFrame.Characters(Start:=1, Length:=Len(fbd.Cells(i, 1))).Font.Bold = True
.Comment.Shape.TextFrame.AutoSize = True
.Resize(, fin - début + 1).Interior.ColorIndex = _
[couleurs].Find(Stage, LookAt:=xlWhole).Interior.ColorIndex
End With