Sub MaJ()
With Sheets("Planning")
For Each Cel In [B5:AJ35]
Cel.ClearComments
p = Application.Match(Cel, Application.Index([TabloFer], , 1), 0)
If Not IsError(p) Then
Temp = Sheets("planning").Range("TabloFer").Cells(p, 2)
If Cel.Comment Is Nothing Then Cel.AddComment
Cel.Comment.Text Text:=Temp
Cel.Comment.Shape.TextFrame.AutoSize = True
End If
Next Cel
End With
End Sub