Bonjour,
j'espère être sur la bonne conversation,
.je suis actuellement entrain de corrigé un code que l'on m'a donné, mais impossible de comprendre l'erreur que excel m'affiche.
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
' Vérification des valeurs dans la feuille
    
        For counter = 1 To 106
        
           
            If Worksheets("Feuil4").Range(col_o & counter).Value = "" Then
                Worksheets("Feuil4").Range(col_o & counter).Select
                Worksheets("Feuil4").Range(col_o & counter) = Value_ME
                Valeur = Valeur1 & Valeur2 & counter & Valeur3
                ActiveWorkbook.Names.Add Name:="Nom", RefersToR1C1:=Valeur
                Sheets("NEUF").Select
                Sheets("NEUF").Copy Before:=Sheets(Page)
                Sheets("NEUF (2)").Select
                Sheets("NEUF (2)").Name = Value_ME
                Worksheets(Value_ME).Unprotect Password:="Caty2170"
                Worksheets(Value_ME).Range("B9").Select
                Worksheets(Value_ME).Range("B9").Value = Value_ME
                Worksheets(Value_ME).Range("H12").Select
                Worksheets(Value_ME).Range("H12").Value = Value_MT
                Worksheets(Value_ME).Protect Password:="Caty2170"
                Worksheets("Feuil4").Range("O54").Value = Value_ME
                Worksheets("Feuil4").Protect Password:="Caty2170"
                Sheets(Value_ME).Select
                ActiveWorkbook.Protect Password:=classeur
                GoTo fin1:
                
            End If
            Page = Page + 1
        Next
     
    'Sélection de la feuille
        ' Sheets(Value_ME).Select
Je suis débutant dans le code, surtout sur Excel donc j'espère que quelqu'un va pouvoir m'aider.
Je vous remercie d'avance.