Hello tout le monde du forum

Je viens de faire la procedure SelectionChange sur une feuille ("sheet1") de mon classeur
Ensuite je créé une autre feuille ("sheet2) dans mon classeur qui copie les données venant de la ("sheet1") et j'aimerais importé cette même procedure dans ma nouvelle feuille au moment de sa création

Voici ma procédure :

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
 
 
 Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 If Target.Column = 2 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AU$1:$AU$4"
    End With
 End If
 
 If Target.Column = 5 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AS$1:$AS$3"
    End With
 End If
 
  If Target.Column = 22 Then
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AW$1:$AW$2"
    End With
 End If
 
End Sub

Comment faire?