nommer feuilles avec valeurs cellules

[steplof]

Bonsoir à tous et toutes et tous

J'arrive pas à mettre au point une macro qui crée et nomme des feuilles en fonction des entrées dans une plage nommée.

Soit ma plage tarifs contenant toto,tata et 5 cellules vides Je voudrais créer une feuille par tarif.

La macro ci-après (tirée et adaptée (un peu) du site de STeph) crée les feuilles toto et tata mais aussi 5 feuilles(1 par cellule vide avec le nom par défaut)
Sub Inserer_Renommer()
Dim i As Integer, Plage As Range
Set Plage = Sheets(2).Range("g5:g13")

If Sheets.Count < Plage.Cells.Count Then
Do
Sheets.Add after:=Sheets(Sheets.Count)
Loop Until Sheets.Count = Plage.Cells.Count
End If

For i = 1 To Plage.Cells.Count
If Plage.Cells(i - 1) <> "" Then
Sheets(i + 2).Name = Plage.Cells(i - 1)
End If
Next i
End Sub

je voudrais avoir seulement mes 2 feuilles initiales + une feuille par tarif crée et rien d'autre.

Si quelqu'un a une piste. Merci d'avance
Steplof.

 

[steplof]

En fait je crois qu'il faudrait juste que je crée une variable
NbcellulesNonVides dans Plage=?? pour remplacer Plage.cells.count
dans la macro et ça devrait marcher

 

[steplof]

Re
Bon ben je me réponds , j'ai atteint mon objectif avec le code suivant:
Sub Inserer_Renommer()
Dim i As Integer, nbfeuilles As Integer, Plage As Range
Set Plage = Sheets(2).Range("g5:g13") ' ma plage source est dans la
'2e feuille
nbfeuilles = 2 'mon nb de feuilles initial
For i = 0 To Plage.Cells.Count
If Plage.Cells(i) <> "" Then
Sheets.Add after:=Sheets(Sheets.Count)
nbfeuilles = 1 + nbfeuilles
Sheets(nbfeuilles).Name = Plage.Cells(i)
End If
Next i

End Sub