Sub NouvelleRecette()
Set f = ActiveSheet
Rep = InputBox("Donner le nom de votre nouvelle recette :", "Nouvelle recette")
If Rep = "" Then Exit Sub
Sheets("FicheModele").Visible = True
Rows("5:5").Insert shift:=xlDown
Range("B5") = Rep
Sheets("FicheModele").Activate
ActiveSheet.Copy after:=Sheets(Sheets.Count)
'ActiveSheet.Copy after:=Sheets(3)
ActiveSheet.Name = Rep
Sheets("FicheModele").Visible = False
Range("B4") = Rep
MsgBox "Remplissez maintenant cette fiche."
End Sub