Bjr,
J'ai fais une macro plus élaborer à partir de la votre et j'ai un problème de syntaxe . Le logiciel me dis "Block IF sans IF"

Cordialement

Sub export()

Dim dirLocation As String
...