Extraction fichier compressé en .rar VBA

Bonjour,

J'ai un fichier nommé Fichier.csv compressé sous le même nom avec WinRar .rar dans le dossier Mes documents : C:\Moi\Mes documents\Fichier.rar et je veux le décompresser dans le même dossier C:\Moi\Mes documents\Fichier.csv

Sub Décompresser

Dim CheminPC As String, sNomFic As String

CheminPC = "C:\Moi\Mes documents\"

Zippeur = "C:\Program Files (x86)\WinRAR\WinRAR.exe"

sNomFic = Dir(CheminPC & "Fichier.rar")

ShellExecute 0, "open", Zippeur, "x" & CheminPC & sNomFic & " " & CheminPC, "", vbHide

' ShellExecute 0, "open", Zippeur, "e" & CheminPC & sNomFic & " " & CheminPC, "", vbHide     ' J'ai essayé avec e au lieu de x et toujours même message

End Sub

Mais je reçois le message : Aucune archive trouvée.

Merci par avance pour ton aide