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