Bonjour,
Si tu n'as vraiment que 4 dossiers tu peux faire de la sorte, c'est un peu bébé mais ça marche ;-) (je suis pas expert en macro j'essaye juste de faire ce qu'il faut) :
Sub classement()
Dim nomrep, fich, repertoire, données
nomrep = Left(Sheets("B").Range("g4"), 2)
Set données = ThisWorkbook.Worksheets("B").Range("D1:I53")
If nomrep = "AU" Then repertoire = "AUTO"
If nomrep = "MO" Then repertoire = "MOTO"
If nomrep = "AV" Then repertoire = "AVION"
If nomrep = "BA" Then repertoire = "BATEAU"
fich = "F:\Enregistrement\" & repertoire & "/" & ActiveSheet.Range("g4") & ".pdf"
données.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=fich, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
A affecter à ton bouton de commande. J'ai été obligé de faire le test que sur 2 caractères à cause de AV pour AVION
@ plus
Jack