Private Sub Worksheet_Activate()
Set f = Sheets("VENTES")
ligne = 3
For Each c In f.Comments
adr = c.Parent.Address
Cells(ligne, 1) = f.Cells(Range(adr).Row, 1) 'date
Cells(ligne, 3) = f.Cells(3, Range(adr).Column) 'bière
Cells(ligne, 2) = f.Cells(Range(adr).Row, 4) 'Client
' Ancienne ligne : Cells(ligne, 2) = f.Range(adr)
temp = c.Text
Cells(ligne, 4) = Mid(temp, InStr(temp, ":") + 16)
ligne = ligne + 1
Next c
End Sub