Sub Copy()
Dim bdd As Worksheet, modele As Worksheet
Set modele = Worksheets("FP")
Set bdd = Worksheets("BDD")
Application.ScreenUpdating = False
For i = 1 To bdd.Range("C65000").End(xlUp).Row
modele.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "FP-" & Format(bdd.Cells(i, 3), "dd-mm-yy")
Next i
bdd.Activate
Application.ScreenUpdating = True
End Sub