Sub Trouve_CléUSB()
Dim FSO As Object
Dim Drv As Object
Dim Msg$
Set FSO = CreateObject("Scripting.FileSystemObject")
MsgBox ("Votre système a " & FSO.drives.Count & " lecteurs :" & vbLf & vbLf)
For Each Drv In FSO.drives
If Drv.DriveType = 1 Then MsgBox (Drv & " est un Disque amovible")
Next
End Sub