Bonjour à tous


voici mon petit problème je voudrais créer une feuille dans mon classeur et la renommer.

J'arrive à créer la feuille et la renommer mais ça me recrée toujours une nouvelle feuille puis une erreur qui me fait sortir de ma macro .

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim page As Variant
Dim feuilleErreur As Worksheet
'Boucle de test pour savoir si les deux projet ont le même nom
If projetA = projetD Then
    MsgBox " Il n'y a pas d'erreur."
 
Else
    MsgBox " Il y a une erreur."
  ' Je vérifie s'il y a déjà une feuille
  For Each page In Worksheets
    If page.Name = "erreurs" Then
    MsgBox "La Page est déjà crée."
    Else
    'J 'ajoute une feuille & je change le nom
    Set feuilleErreur = Sheets.Add(After:=Sheets(Sheets.Count))
    feuilleErreur.Name = "erreurs"
 
    End If
  Next page
  End If
Merci de me dire ce qui est faux et comment rattraper le coup.

bonne fin de journée à vous