KEY DES ELEMENTS USB DANS LE REGISTRE

        Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As Long, RetData As Long
        Const BUFFER_SIZE As Long = 255
        Ret = BUFFER_SIZE
        'ouverture de la clé
        If RegOpenKey(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\DeviceClasses\{4d1e55b2-f16f-11cf-88cb-001111000030}", hKey) = 0 Then
            'creation du buffer buffer
            sName = Space(BUFFER_SIZE)
            'enumeration des clé
            While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
                param = LCase(sName)
                param = Replace(param, "##?#", "Device=0;Path=\\?\")
                'visualisation de la clé
 
                'test de la clé
                If (test_Usb(param)) = "ack" Then
                
                'enregistrement de param
                    MsgBox "test reussi", vbDefaultButton1, "test USB"
                    Exit Sub
                End If
                
                'preparer la prochiane clé
                Cnt = Cnt + 1
                sName = Space(BUFFER_SIZE)
                Ret = BUFFER_SIZE
                
                ' test de la presence du composant usb
                
            Wend
            'fermeture de la clé
            RegCloseKey hKey
        Else
            Me.Print "  erreur lors de l'ouverture de la clé"
        End If