Bonjour,
Voici mon code, mais quand j'édite la cellule K3, il ne se passe rien.
Dim r As Range, dossier$, ad$
Set r = [K3:K10000,P3:P10000,V3:V10000] 'colonne A à adapter
dossier = "Q:\Ingenierie\D.I.R" '& "\Fichiers PDF" 'à adapter "Q:\Ingenierie\D.I.R\S-5023-5103.pdf"
If Dir(dossier...