Private Sub Worksheet_Activate()
Set f = Sheets("T,Date")
ligne = 2
For Each c In f.Comments
adr = c.Parent.Address
Cells(ligne, 1) = f.Cells(Range(adr).Row, 1)
Cells(ligne, 2) = "" ' f.Cells(3, Range(adr).Column)
Cells(ligne, 3) = adr ' f.Range(adr)
temp = c.Text
mavar = Mid(temp, InStr(temp, ":") + 1)
mavar = Application.WorksheetFunction.Substitute(mavar, " ", "")
mavar = Replace(mavar, Chr(10), "")
'Debug.Print mavar
Cells(ligne, 4) = mavar
ligne = ligne + 1
Next c
End Sub