Sub ActiverReference()
If Not ReferenceActive("MSComCtl2") Then
If FichierExistant("C:\WINNT\system32\MSCOMCT2.OCX") Then
ThisWorkbook.VBProject.References.AddFromFile "C:\WINNT\system32\MSCOMCT2.OCX"
Else
Shell ("regsvr32 /s" & "P:\References\MSCOMCT2.OCX")
ThisWorkbook.VBProject.References.AddFromFile "P:\References\MSCOMCT2.OCX"
End If
End If
End sub