Sub testComm2()
For Each MonCommentaire In Sheets("C,car").Comments
If Not Intersect(MonCommentaire.Parent, Sheets("C,car").Range("J4:V" & Sheets("C,car") _
.Range("J" & Rows.Count).End(xlUp).Row)) Is Nothing Then
With MonCommentaire.Shape
.Width = 50
.Height = 35
End With
End If
Next
For Each c In Sheets("C,car").Comments
If Not Intersect(c.Parent, Sheets("C,car").Range("J4:V" & Sheets("C,car") _
.Range("J" & Rows.Count).End(xlUp).Row)) Is Nothing Then
With c.Shape
c.Shape.Left = c.Parent.Left + 20
c.Shape.Top = c.Parent.Top - 20
End With
End If
Next c
End Sub