Sub DupliquerMaster()
Dim ErrNumber As Variant
Dim NomDossier As String
NomDossier = InputBox("Nom dossier ?")
If Len(NomDossier) = 0 Then Exit Sub
With ThisWorkbook
.Sheets("Master").Visible = xlSheetVisible
.Sheets("Master").Range("_Zonesaisie").ClearContents
.Sheets("Master").Copy after:=.Sheets(.Sheets.Count)
.Sheets("Master").Visible = xlSheetHidden
Do While 1
'Vérifier la validité du nom de la nouvelle feuille
On Error Resume Next
ActiveSheet.Name = NomDossier
ErrNumber = Err.Number
On Error GoTo 0
'Feuille nommée
If ErrNumber = 0 Then
ActiveSheet.Range("B2").Value = NomDossier
Exit Do
End If
'Feuille mal nommée
MsgBox "Le nom donné à la feuille est incorrect ou la feuille existe déjà !"
NomDossier = InputBox("Nom dossier ?")
'Annuler ou saisie vide => abandon
If Len(NomDossier) = 0 Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Exit Do
End If
Loop
End With
End Sub