Dim iii As Integer
Dim rep As Variant
Workbooks.Open Filename:= _
'chemin du fichier.xls'
'Demande le nom que l'on veut donner à la feuille
rep = InputBox('Nommez la feuille Excel ou seront contenus les résultats')
'Vérifie que le nom saisi ne correpond pas a une feuille déjà existante
For iii = 1 To Sheets.Count
If rep = Worksheets(iii).Name Then
MsgBox 'Une feuille portant le même nom existe déjà.', vbOKOnly Or vbInformation, 'Saisie Incorrecte'
Exit Sub
End If
Next iii
If rep = '' Then
MsgBox 'Pour exécuter cette macro, vous devez saisir un nom', vbOKOnly Or vbInformation, 'vous n'avez pas saisi de nom'
Else
Sheets.Add.Name = rep
ActiveWindow.Close
End If