Bonjour à tous,

je souhaiterai ajouter le code vba ci-dessous dans la feuille 1 de 150 fichier Excel qui se trouvent dans le même dossier
c'est pour cela que je souhaite automatiser l'insertion du code par macro vba :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$38" Then
    Select Case Target.Value
        Case Is = "Serious"
Target.Interior.ColorIndex = 6 'jaune
        Case Is = "Extreme"
Target.Interior.ColorIndex = 3 'rouge
        Case Is = "Low"
Target.Interior.ColorIndex = 35 'vert
        Case Is = "Moderate"
Target.Interior.ColorIndex = 34 'bleu ciel
        Case Else
Target.Interior.ColorIndex = -4142 'transparent
    End Select
 End If
End Sub
Merci pour votre aide