Commentaire(s) dans une msgbox

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim C As Range
Dim Msg As String
If Target.Column = 1 And Target.Count = 1 Then
  On Error Resume Next
  For Each C In Range(Cells(Target.Row, 1), Cells(Target.Row, Rows(Target.Row).Find("*", , , , , xlPrevious).Column))
    If Not C.Comment Is Nothing Then
      Msg = Msg & C.Address & vbLf & C.Comment.Text & vbLf & "----" & vbLf
    End If
  Next
  If Not Msg = "" Then MsgBox Msg
  Cancel = True
End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 1 And Target.Count = 1 Then
Dim C As Range
Dim Msg As String
[COLOR=Red]Dim DerColComm As Long
DerColComm = [/COLOR][COLOR=Red]Rows("1:1").SpecialCells(xlCellTypeLastCell).Column[/COLOR]
  For Each C In Range(Cells(Target.Row, 1), Cells(Target.Row, DerColComm))
    If Not C.Comment Is Nothing Then
      Msg = Msg & C.Address & vbLf & C.Comment.Text & vbLf & "----" & vbLf
    End If
  Next
  If Msg = "" Then MsgBox "Pas de commentaire sur cette ligne." Else MsgBox Msg
  Cancel = True
End If

End Sub