Probleme cells.Find

Bonjour,

J'ai un petit souci avec la fonction .find
Je m'explique : j'ai sur ma feuille1 (nommée Stock), la liste de toutes les pages créés dans ce mm classeur.
Pour rajouter une feuille avec une macro, je veux vérifier que cette feuille n'existe pas déjà.
Le problème c'est que parfois des noms commencent de la mm façon. En effet, je fonctionne par couleur, donc si j'ai déjà créé une page 7016FSD (Gris structuré), je ne peux pas créer la page 7016 car il me dis qu'elle est déjà créée...

Voici mon code :

If Cells.Find(What:=Saisie_Couleur) Is Nothing Then
'Saisie_Couleur est ma variable saisie dans la BDD pour ajouter une couleur

Sheets("feuille modele").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Couleur " & Saisie_Couleur

i = Sheets("Stock").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Stock").Range("A" & i) = "Couleur " & Saisie_Couleur
Else
MsgBox ("Cette couleur a déja été ajoutée, merci de bien vouloir recommencer")
Cells.Find(What:=Saisie_Couleur).Select

End If


Comment modifier mon code pour rendre compte de cette nuance?

Merci d'avance.

Chtite24