Dim curCell As Range, cellFind As Range
For Each curCell In ThisWorkbook.Sheets("Feuil1").Range("$C$10:$H$16")
On Error Resume Next
curCell.Comment.Delete
On Error GoTo 0
If curCell.Text <> vbNullString Then
Set cellFind = ThisWorkbook.Sheets("Feuil2").Range("B:B").Find(curCell.Value, , , xlWhole)
If Not cellFind Is Nothing Then
curCell.AddComment ("code: " & cellFind.Offset(0, 1).Text & vbNewLine & "nom: " & cellFind.Offset(0, 2).Text)
End If
End If
Next curCell