Bonjour
J'ai une sub "Worksheet_Change" qui est fonctionnelle.
Je voudrais intégrer cette dernière dans un nouveau fichier de manière automatique.
Je ne sais pas comment faire pour que cette dernière s'applique.

Pour être plus clair j'ai un fichier ("fichier source") dans lequel se trouve un bouton qui execute une macro.
Dans cette macro un nouveau fichier s'ouvre ("fichier cible"). Dans un des onglets de ce fichier deux, je souhaite associé la private sub ci dessous.

Merci de m'aider

ci dessus ma private sub
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim laLigne As Integer, laColonne As Integer
    Dim d
 
    laLigne = Target.Row
    laColonne = Target.Column
 
Range("a1") = laLigne
Range("a2") = laColonne
 
    d = 1
    While Cells(74, d + 1) <> ""
    d = d + 1
    Wend
        If laLigne < 12 And laLigne > 1 And laColonne < 14 And laColonne > 6 Then
            ActiveSheet.ChartObjects("Graphique 1").Activate
            ActiveChart.SeriesCollection(1).Values = Range(Cells(laLigne + 72, 1), Cells(laLigne + 72, d))
            ActiveChart.ChartTitle.Text = "Génératrice " & laColonne - 6 & " ligne " & laLigne
        Else
        End If
Cells(laLigne, laColonne).Select
End Sub