Sub a()
Dim ref As Object
'Ajout ref
RefWord = "{00020905-0000-0000-C000-000000000046}"
With ThisWorkbook.VBProject.References
.AddFromGuid RefWord, 0, 0
End With
'Suppression Ref
For Each ref In ThisWorkbook.VBProject.References
If ref.GUID = RefWord Then
ThisWorkbook.VBProject.References.Remove ref
End If
Next
End Sub