Bonjour

voilà mon problème.
Je dispose d'un classeur excel à 4 feuilles
Feuille 1 = sommaire
Feuille 2 = base de données
Feuille 3 = masque
Feuille 4 = graphique

Je souhaite créer une copie de la feuille 3 et la renommer par "Janvier 2006"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub JANVIER2006_Click() 
   Worksheets("Base").Copy After:=Sheets(4)
    Worksheets("Base (2)").Select
    Worksheets("Base (2)").Name = "Janvier 2006"
    Worksheets("Janvier 2006").Range("E3").Select
End sub
Mon problème est que si je reclic sur le bouton "Janvier 2006", il me copie à nouveau la feuille 3 et essaye de la renommer par "Janvier 2006".
Cela me renvoie une erreur!!! Normal la feuille existe déjà.
Et c'est là que j'ai besoin de vous.
Je souhaiterai vérifier que la feuille nommée "Janvier 2006" n'existe pas et alors je la crée, sinon j'active cette feuille.
Je n'arrive pas à le faire j'ai essayé avec des boucle For, avec des Do while.
Un peu d'aide me ferait plaisir

Merci d'avance