Sub dupliquer()
Dim numTitre As String
numTitre = InputBox("Titre à suivre")
Dim CodeISIN As String
CodeISIN = InputBox("Code ISIN")
Sheets("action").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Range("_zoneSaisie").ClearContents
On Error GoTo 1
ActiveSheet.Name = numTitre
ActiveSheet.Range("reference").Value = numTitre ' Ajout le nom du titre
ActiveSheet.Range("code").Value = CodeISIN ' Ajout code ISIN
Exit Sub
1: Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox ("Nom déja utilisé...")
Application.DisplayAlerts = True
End Sub