Sub NumeroDisque()
Dim LettreDisque$
LettreDisque = "" 'au cas où le disque ne serait ni P, ni M, ni U
If DisqueExiste("P") Then LettreDisque = "P:": Exit Sub
If DisqueExiste("M") Then LettreDisque = "M:": Exit Sub
If DisqueExiste("U") Then LettreDisque = "U:"
End Sub