Function VolumeUSB$(Chemin$)
Dim FSO, Volume, LettreVolume$
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Volume In FSO.Drives
If Volume.drivetype = 1 Then
If FSO.FolderExists(Volume.driveletter & Mid(CheminStockage, 2)) Then
VolumeUSB = Volume.driveletter
Exit Function
End If
End If
Next Volume
End Function