Sub Test()
Dim f As Worksheet, plage As Range, c As Comment, a As String
Set f = Sheets("4 joueurs")
Set plage = f.[H10:M49]
For Each c In f.Comments
a = c.Parent.Address(0, 0)
If Not Intersect(plage, f.Range(a)) Is Nothing _
Then MsgBox c.Text & vbLf & String(40, " "), , "Commentaire en " & a
Next
End Sub