Sub copier()
Dim Q, x&
Q = InputBox("Veuillez donner la date souhaitée pour votre nouvelle feuille SVP" & vbCrLf & _
"au Format 01/10/2010 merci", "Date Souhaitée")
If Q = "" Then Exit Sub
Sheets.Add [COLOR="Blue"]before[/COLOR]:=Sheets("FIN")
ActiveSheet.Name = Format(Q, "dd mmmm yyyy")
Feuil1.Cells.Copy ActiveSheet.Range("A1")
x = Sheets.Count - 1
ActiveSheet.Cells(9, 6) = Sheets(x).Cells(10, 6)
ActiveSheet.Cells(25, 3) = Format(Q, "dd mmmm yyyy")
Sheets(x).Cells.Locked = True
Sheets(x).Protect Password:="dingofou"
End Sub