Sub CommentaireGolfette()
Dim c As Range, c1 As Range, c2 As Range
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Rows(4).ClearComments 'RAZ
For Each c In Feuil1.[H:H].SpecialCells(xlCellTypeConstants, 1)
Set c1 = Cells(2, Application.Match(c(1, -5), Rows(2), 0))
Set c2 = Nothing
If c1(3, 0) <> 0 Then
Set c2 = c1(3, 0)
ElseIf c1(3, 1) <> 0 Then
Set c2 = c1(3, 1)
End If
With c2.AddComment
.Text "Golfette partagée"
.Shape.TextFrame.AutoSize = True
.Shape.Top = c2(2).Top
.Visible = True
End With
Next
End Sub