Private Sub test2()
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\windows\syswow64\mscomct2.ocx") Then
MsgBox "Mscomct2.ocx présent", vbInformation, "TEST OK"
Else
MsgBox "Fichier absent", vbCritical, "ERREUR"
End If
End Sub