Sub test2()
Dim fso As Object, d As Object, i As Byte
i = 1
Set fso = CreateObject("Scripting.FileSystemObject")
For Each d In fso.Drives
Cells(i, 1).Value = d.DriveLetter
Cells(i, 2).Value = d.DriveType
Select Case d.DriveType
Case 0: Cells(i, 3) = "Inconnu"
Case 1: Cells(i, 3) = "Amovible"
Case 2: Cells(i, 3) = "Fixe"
Case 3: Cells(i, 3) = "Réseau"
Case 4: Cells(i, 3) = "CD-ROM"
Case 5: Cells(i, 3) = "Disque RAM"
End Select
i = i + 1
Next d
End Sub