Sub ReferencesAbsolues()
Application.EnableEvents = False
Application.DisplayAlerts = False 'évite la recherche du fichier source
[Table2].Replace "D:D", "$D:$D", xlPart
[Table2].Replace "E:E", "$E:$E"
[Table2].Replace "!A", "!$A"
Application.EnableEvents = True
End Sub