Extraction fichier compressé en .rar VBA

Bingoooooooooooooooooooooooooooooooooooooooooooooooooo

Je viens de trouver la solution sur un autre forum en anglais et j'ai adapté la solution et ça marche

Je la partage avec toi et avec toute autre personne qui en a besoin

Sub Extraction()

    Dim RarIt As String
    Dim Source As String
    Dim Destination As String
    Dim CheminPC As String
    Dim WinRarPath As String

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

    WinRarPath = "C:\Program Files (x86)\WinRar\"
    Source = CheminPC & "Fic*.rar"
    Destination = CheminPC

    RarIt = Shell(Chr(34) & WinRarPath & "WinRar.exe" & Chr(34) & " e " & Chr(34) & Source & Chr(34) & " " & Chr(34) & Destination & Chr(34), vbNormalFocus)

End Sub

Merci bien BrunoM45 pour ton aide et je suis désolé pour le dérangement