[COLOR=BLUE]Sub[/COLOR] AfficherLiens()
[COLOR=BLUE]Dim[/COLOR] formulesLiens [COLOR=BLUE]As[/COLOR] Range, c [COLOR=BLUE]As[/COLOR] Range
[COLOR=BLUE]Dim[/COLOR] sh [COLOR=BLUE]As[/COLOR] Worksheet
[COLOR=BLUE]Dim[/COLOR] Adr [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR], Texte [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR]
[COLOR=BLUE]For[/COLOR] [COLOR=BLUE]Each[/COLOR] sh [COLOR=BLUE]In[/COLOR] Worksheets
[COLOR=BLUE]With[/COLOR] sh.UsedRange
[COLOR=BLUE]Set[/COLOR] c = .Find([i]"*.xls"[/i], LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=[COLOR=BLUE]False[/COLOR])
[COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
Adr = c.Address
[COLOR=BLUE]Do[/COLOR]
Texte = Texte & [i]"'"[/i] & sh.Name & [i]"'!"[/i] & c.Address & [i]" -> "[/i] & c.Formula & Chr(10)
[COLOR=BLUE]Set[/COLOR] c = .FindNext(c)
[COLOR=BLUE]Loop[/COLOR] [COLOR=BLUE]While[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]And[/COLOR] c.Address <> Adr
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]Next[/COLOR]
[COLOR=BLUE]If[/COLOR] Len(Texte) > 0 [COLOR=BLUE]Then[/COLOR] MsgBox Texte
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]