Private Declare Function _
CoRegisterMessageFilter Lib "OLE32.DLL" _
(ByVal lFilterIn As Long, _
ByRef lPreviousFilter) As Long
.....
Dim lMsgFilter As Long
' Intercepter les messages OLE
CoRegisterMessageFilter 0&, lMsgFilter
' Code faisant un appel OLE
' Restaurer les messages OLE
CoRegisterMessageFilter lMsgFilter, lMsgFilter
.....