Sub Bouton1_QuandClic()
Dim c As Range
Dim cell As Range
Dim plage As Range
Dim ligne As Byte
Dim texte As String
ligne = 1
For Each c In Range('a1:g' & Range('a65536').End(xlUp).Row)
If c.HasFormula Then
texte = c.Address(0, 0) & ' - dépend de '
On Error Resume Next
Set plage = c.Precedents
For Each cell In plage
texte = texte & ',' & cell.Address(0, 0)
Next cell
Cells(ligne, 10) = texte: texte = ''
ligne = ligne + 1
End If
Next c
End Sub