Microsoft 365 Pb MkDir

bonsoir,

J'ai la macro suivante
Sub Test chemin ()

Dim Chemin_pc As Variant
Chemin_pc = Chemin_pc = "C:" & Environ("HOMEPATH") & ("\OneDrive - AFH France\Documents\AFH\OFFRES AT")
If Dir(Chemin_pc, vbDirectory) <> "" Then ' = si dir_export existe alors
Else 'sinon
MkDir Chemin_pc ' le creer
End If

j'ai une erreur d’exécution '76'

merci de votre aide bonne journée A+