détail quantité dans commentaire via vba [ RESOLU ]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wf, f, test, t1, t2, t3

Set wf = WorksheetFunction
Set f = Sheets("Stocks")

On Error Resume Next
  test = wf.Match(Target, f.Range("C4:C1000"), 0)
  Range("B4:AP53").ClearComments
If IsEmpty(Target) Or IsEmpty(test) Then Exit Sub
If Not Intersect(Target, Range("B4:AP53")) Is Nothing Then
  t1 = wf.Index(f.Range("B4:B1000"), wf.Match(Target, f.Range("C4:C1000"), 0))
  t2 = "Quantité : " & wf.SumIf(f.Range("C4:C1000"), Target, f.Range("H4:H1000"))

For i = 4 To 9
If f.Range("c" & i) = Target Then t3 = t3 & f.Range("e" & i) & " = " & f.Range("e" & i) & Chr(10)
Next i

  Target.AddComment
  Target.Comment.Visible = True
  Target.Comment.Shape.TextFrame.AutoSize = True
  Target.Comment.Text Text:=t1 & Chr(10) & t2 & Chr(10) & t3
End If
End Sub