Merci pour cette réponse Mfrerrand , j'ai tenté un ecriture comme suit mais apparement il y aurait une erreur de formulation
chemin = ThisWorkbook.Path
If DossierExiste("C:\chemin & " \ " & A") Then
MsgBox existe
existe
end if
apparement la ligne
DossierExiste("C:\chemin & " \ " & A")
contient une erreur que je n'arrive pas à corriger
le but etant de verifier l'existence du repértoire nommé A place sur le bureau