Sub Addref()
'ajoute une référence à la bibliothèque
On Error Resume Next
'nom et chemin de la bibliothèque
nomRef = 'C:\\Program Files\\Fichiers communs\\Microsoft Shared\\DAO\\Dao360.dll'
ThisWorkbook.VBProject.References.AddFromFile nomRef
End Sub