Sub Traitement()
'...
'...
Sheets('Relevé Examen').Copy Before:=Workbooks('Relevés.xls').Sheets('FIN')
ActiveSheet.Name = DetermineNomFeuille('Relevés.xls', vNom)
'...
End Sub
Function DetermineNomFeuille(Classeur As String, NomFeuille As String) As String
'myDearFriend! 22/03/06
Dim F As Worksheet
Dim Test As String
Dim N As Integer
N = 1
Test = NomFeuille
Do
On Error Resume Next
Set F = Workbooks(Classeur).Sheets(Test)
On Error GoTo 0
If Not F Is Nothing Then
N = N + 1
Test = NomFeuille & ' (' & CStr(N) & ')'
Else
DetermineNomFeuille = Test
Exit Do
End If
Set F = Nothing
Loop
End Function