Private Sub CommandButton36_Click()
Dim numFacture As String, sDossier As String
numFacture = InputBox("NOTER NON PRENON DU NOUVEAU AGENT")
Sheets("AGENTTYPE").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = numFacture
'Chemin du dossier (Dans le même dossier que le classeur ouvert)
sDossier = ThisWorkbook.Path & "\" & numFacture
'Si le dossier n'existe pas
If Dir(sDossier, vbDirectory) = "" Then
'Création du dossier
MkDir sDossier
'Fin de la condition
End If
End Sub