insertion commentaire d'une celulle dans 1 listbox

Option Explicit
Private Sub ComboBox1_Change()
Dim i As Integer, m As Byte
   If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
   m = ComboBox2.ListIndex * 2 + 2
   ListBox1.Clear
   TextBox2 = ""
   For i = 4 To 8
       If Cells(i, m).Text Like "*" & ComboBox1.Value & "*" Then
            If Cells(i, m).Comment Is Nothing Then
                ListBox1.AddItem Cells(i, m).Text & " " & Cells(i, m).Offset(0, 1)
            Else
                ListBox1.AddItem Cells(i, m).Text & " " & Cells(i, m).Comment.Text & " " & Cells(i, m).Offset(0, 1)
            End If
           TextBox2 = Val(TextBox2) + Val(Cells(i, m))
       End If
   Next i
End Sub