Bonjour à toutes et à tous,

Je suis en train de finaliser une petite application. Toutefois, une petit bout de code me pose problème.
Une boite de dialogue me demande le nom que je donne à une future feuille qui regroupera deux ( ou plus ) autres feuilles.
Dans un second temps, Je crée cette feuille puis la renomme grâce à l' InputBox.

Mon problème est que je n'arrive pas à déplacer cette feuille crée pour la mettre à coté d'une autre feuille.
Quand je lance cette petite macro, il y a une erreur à la ligne 9 ( erreur de compilation me dit l'erreur ). Même en ajoutant les lignes 8 et 10
J'ai fait plusieurs essais en incluant la ligne 2 qui ici est en commentaire et j'ai remplacé "Fusionraces" de la ligne 9 par "Name" mais rien n'y fait.

Quelqu'un peut-il m'aider ?

Merci d'avance.

Novice72

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro1()
    Dim Fusionraces As String
   ' Dim sht As Worksheet
    Fusionraces = InputBox("Saisie du nom de la fusion: ", "Regroupement Races")
    Sheets.Add
    ActiveSheet.Name = Fusionraces
    Application.DisplayAlerts = False
    sht.Fusionraces.Move Before:=Sheets(10)
    Application.DisplayAlerts = True
    Range("A1").Select
End Sub