Copie de feuille en VBA

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] Test()
[COLOR=NAVY]Dim[/COLOR] nom [COLOR=NAVY]As String
Dim[/COLOR] prenom [COLOR=NAVY]As String[/COLOR]
    ActiveWorkbook.Save
    nom = InputBox("quel est le nom du client?", "Nom Client")
    prenom = InputBox("quel est le prénom du client?", "Prénom Client")
    Sheets("Questionnaire Risque MODELE").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = NomFeuille("2007" & " " & nom & " " & prenom)
    [COLOR=GREEN]' ...[/COLOR]
    [COLOR=GREEN]' ...[/COLOR]
[COLOR=NAVY]End Sub[/COLOR]

[COLOR=NAVY]Private Function[/COLOR] NomFeuille([COLOR=NAVY]ByVal[/COLOR] T [COLOR=NAVY]As String[/COLOR]) [COLOR=NAVY]As String[/COLOR]
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] F [COLOR=NAVY]As[/COLOR] Worksheet
[COLOR=NAVY]Dim[/COLOR] NouvT [COLOR=NAVY]As String
Dim[/COLOR] N [COLOR=NAVY]As Byte
    Do[/COLOR]
[/SIZE][SIZE=2]        [COLOR=NAVY]Set[/COLOR] F = [COLOR=NAVY]Nothing
[/COLOR][/SIZE][SIZE=2]        NouvT = T & IIf(N > 0, N, "")
[COLOR=NAVY]        On Error Resume Next
        Set[/COLOR] F = Worksheets(NouvT)
        [COLOR=NAVY]On Error GoTo[/COLOR] 0
        N = N + 1
    [COLOR=NAVY]Loop Until[/COLOR] F [COLOR=NAVY]Is Nothing[/COLOR]
    NomFeuille = NouvT
[COLOR=NAVY]End Function[/COLOR][/SIZE]