Passage de paramétres

Bonjour,

Dans une macro je cherche la lettre en fonction du nom d'un disque et
de
son type
c'est bon ça fonctionne bien comme cela (macro trouvée sur le net)


Sub TrouveLettre()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\" & strComputer & "ootcimv2")
Set colDisks = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk
WHERE DriveType = 3", , 48)
For Each objdisk In colDisks
If objdisk.VolumeName = "Navette 250" Then
rdrive = objdisk.DeviceID & ""
Debug.Print rdrive
End If
Next objdisk
End Sub

Maintenant j'essaie en passant le paramètre DriveType comme ça
Sub TrouveLettre(L as Variant))

Set colDisks = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk
WHERE DriveType = L", , 48)

J'ai une erreur d'exécution '2147217385(80041017) Erreur Automation

Je fais quoi comme erreur ?

Merci