Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E2:E10000"), Target) Is Nothing Then
For Each col In Array(1, 2, 4, 5)
If Not Target.Offset(, col).Comment Is Nothing Then Target.Offset(, col).Comment.Delete
p = Application.Match(Target.Offset(, col), Application.Index([Dispo], , 1), 0)
If Not IsError(p) Then
temp = Sheets("Files").Range("Dispo").Cells(p, 2)
Target.Offset(, col).AddComment
Target.Offset(, col).Comment.Text Text:=temp
Target.Offset(, col).Comment.Shape.TextFrame.AutoSize = True
End If
Next col
End If
End Sub