Renommer onglet avec une liste de date

bonjour tous,

j'ai encore un souci sur une fichier ...
J'ai un code qui fonctionne très bien pour la copie d'onglet mais la partie nom ne fonctionne pas :
Sub COPIE3()

Dim c As Range

Application.ScreenUpdating = False
Set c = Worksheets("DATE").Range("B1")
Do Until IsEmpty(c)

Worksheets("FP").Copy before:=Worksheets("RECETTES")
With Worksheets(ThisWorkbook.Sheets.Count)
.Name = cell.Value(Format(Date, "dd-mm-yy"))
End With

Loop

End Sub

Ma feuille FP est bien copiée et dans mon onglet DATE en colonne B1 à B31 j'ai mes dates.
Je voudrais renommer les onglets crées FP = valeur en B1 ... jusque B31 si 31 jours.
Mais j'y arrive pas ! à chaque fois il me met FP1 ou FP(1) et là comme au dessus ... rien..
Si vous avez une solution ... je vous remercie par avance,

Louisa