Ben oui...
J'ai déplacé "Sheets("Master_episode").Copy After:=Sheets(Sheets.Count)" sous le Else et ça fonctionne.
Merci à tous les deux.
[code]Dim I As Byte
Dim Nombre As Integer
Dim Titre As String
Dim NouveauNom As String
Titre = Range("S12").Value
Nombre = Range("S13").Value
Application.ScreenUpdating = False
For I = 1 To Nombre
NouveauNom = Titre & I
If FExist(NouveauNom) Then
MsgBox "Cette feuille existe déjà"
Exit Sub
Else
Application.ScreenUpdating = False
Sheets("Master_episode").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NouveauNom
NouveauNom = Titre & I
Range("J1") = I
Range("B1") = Titre
End If
Next I
Application.ScreenUpdating = True
End Sub/code]