Sub cle_usb()
Dim oFSO, oDrv, w, i
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = oFSO.Drives
w = colDrives.Count
For Each oDrv In oFSO.Drives
If oDrv.DriveType = "1" And oDrv.IsReady Then
Set oDrv = oFSO.GetDrive(oDrv.DriveLetter)
MsgBox "Oui il y a bien une clé qui à la lettre : " & oDrv.DriveLetter
i = i - 1
End If
i = i + 1
Next
If i = w Then MsgBox "Pas de clé branchée"
End Sub