Sub test()
Dim dossier As String, nom_fichier As String, CheminEntier As String, Chemin As String
Dim durée As Long, épreuve As String
'Pour test, variables forcées
durée = 125
épreuve = "Remplissage_tonneau"
'définir nom du fichier
nom_fichier = "PROVISOIRE" & "_" & durée & "_" & épreuve & ".xlsx"
'définir dossier
dossier = "tonneau" 'Range("B1").Text
'définir chemin
Chemin = ActiveWorkbook.Path & "\" & dossier
'définir chemin complet
CheminEntier = Chemin & "\" & nom_fichier
'créer dossier s'il n'existe pas
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin
'créer la copie de la feuille active!
ActiveSheet.Copy
'Sauvegarde une copie du classeur actif
ActiveWorkbook.SaveCopyAs CheminEntier
' Fermeture du fichier sauvegardé
ActiveWorkbook.Close False
End Sub