Nom de Sheets

Bonjour,

J'ai un petit problème du type "l'indice n'appartient pas à la sélection" avec ce morceau de code.

Sub Fusionner() 'Fusionne les semaines

Dim annee As Integer

Application.DisplayAlerts = False 'Desactive l'affichage de l'alerte de fusion

annee = InputBox("Annee en cours ?", "Annee en cours ?") 'Renseigner l'annee Desiree

Sheets("Original").Copy After:=Sheets(ThisWorkbook.Sheets.Count) ' Creation de l'onglet de l'année
Sheets(ThisWorkbook.Sheets.Count).Name = annee 'Renomme la nouvelle feuille par l'année

Cells(6, 3).Value = annee

Sheets("Jours fériés").Visible = True 'affiche la feuille cachée
Sheets("Jours fériés").Select 'Defusionne pour recalculer les semaines
    Rows("1:1").Select
    Selection.Copy
Sheets("Jours fériés").Visible = False 'masque la feuille
    Sheets([Inline]annee[/Inline]).Select  'colle la ligne dans la nouvelle feuille

  End Sub  
    

C'est le 'annee' surligné qui merdouille, si je mets "ThisWorkbook.Sheets.Count" ça marche nickel.

Quelqu'un aurait une idée svp ? Je vous remercie

Sheets(CStr(annee)).Select

Sinon c'est la feuille numéro annee qui est sélectionnée !!

Salut,

Merci pour ta réponse !

La fonction 'CSrt(annee)' me fait un bug du type 'la fonction sub n'est pas définie...

Faut-il que je rajoute une bibliothèque ou quelque chose du genre (je ne suis pas du tour calé là-dessus) ?

non, tu as mal orthographié !!

Désolé pour cette maladresse je te remercie

Bonne journée !