Bonjour à tous,

J'ai un fichier excel ou j'ai fait du copier coller de formules mais maintenant quand j'ouvre le fichier, il me marque :
Erreur d'execution '9' : L'indice n'appartient pas à la sélection .

Ensuite j'ai le choix entre "debogage" et "fin".
Lorsque je clique sur debogage voici ce qu'il me marque :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Select Case Sheets("commande" ).Range("A16" ).Value
 
          Case "Sheets('commande').Range('A10').Value"
 
              Sheets("commande" ).Range("C16" ).Value = "Sheets('BOF').Range('C10').Value"
              Sheets("commande" ).Range("D16" ).Value = "Sheets('BOF').Range('D10').Value"
 
          Case "beurre pasteurisé"
 
              Range("C16" ).Value = "blOblO"
              Range("D16" ).Value = 40
 
          Case Else
 
              Range("C16" ).Value = "0"
              Range("D16" ).Value = 0
 
End Select
 
End Sub
Merci d'avance pour votre aide