Sub AfficherSN_HD()
Dim LETTRE_DISQUE, Mess As String
LETTRE_DISQUE = InputBox("Saisir la lettre du lecteur", "Numéro de série Disque", "C")
With CreateObject("Scripting.FileSystemObject")
Mess = "Disque " & LETTRE_DISQUE & vbCrLf & "Serial Number:" & vbCrLf & .GetDrive(LETTRE_DISQUE).serialnumber
End With
MsgBox Mess, vbInformation
End Sub