Public Sub majCommentaires()
Dim curCell As Range, lastLineSearch As Integer, i As Integer
ThisWorkbook.Sheets("Suivi").Columns(3).ClearComments
Set curCell = ThisWorkbook.Sheets("Suivi").Range("C6")
With ThisWorkbook.Sheets("Question")
lastLineSearch = .Cells(.Rows.Count, 1).End(xlUp).Row
While curCell.Value <> vbNullString
For i = 3 To lastLineSearch
If .Cells(i, 1).Value = curCell.Text Then
If curCell.Comment Is Nothing Then curCell.AddComment
curCell.Comment.Text Text:=.Cells(i, 2).Value
End If
Next i
Set curCell = curCell.Offset(1, 0)
Wend
End With
End Sub