bonjour,


petit problème dans mon code pour ajouter une feuille



il me retoune comme erreur

run time error 1004


cannot rename a sheet to the same name as another sheet, a referenced
object library or a workbook referenced by visual basic.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Do
    bonNom = True
    If sem <> "" Then
    'Vérifier que le nom n'existe pas déjà
        For a = 1 To ActiveWorkbook.Worksheets.Count
            If UCase(sem) <> UCase(Worksheets(a).Name) Then
                Sheets.Add.Name = sem
                'ActiveSheet.Name = sem
                i = 3
                Worksheets(sem).Select
                ActiveSheet.Range("A" & i).Value = "Semaine" & sem
                i = 4
                ActiveSheet.Range("A" & i).Value = "Route"
                ActiveSheet.Range("b" & i).Value = "Date"
                ActiveSheet.Range("c" & i).Value = "kilometre"
                ActiveSheet.Range("d" & i).Value = "nombre de client"
                    While ActiveSheet.Range("A" & i) <> ""
                    i = i + 1
                    Wend
                ActiveSheet.Range("A" & i).Value = Tournee
                ActiveSheet.Range("B" & i).Value = jourdate
                ActiveSheet.Range("c" & i).Value = kilometre
                ActiveSheet.Range("d" & i).Value = client
            Else
 
                 i = 3
                Worksheets(sem).Select
                ActiveSheet.Range("A" & i).Value = "Semaine" & sem
                    While ActiveSheet.Range("A" & i) <> ""
                    i = i + 1
                    Wend
                ActiveSheet.Range("A" & i).Value = Tournee
                ActiveSheet.Range("B" & i).Value = jourdate
                ActiveSheet.Range("c" & i).Value = kilometre
                ActiveSheet.Range("d" & i).Value = client
            End If
        Next
 
    End If
    Label1.Caption = "pas de nom"
Loop Until bonNom = True
 
End Sub
une idée de mon erreur, merci