Meme code pour X page ...

Bonjour le forum,

J'ai un code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("E6:F36")) Is Nothing Then
ActiveCell = ActiveCell.Offset(0, -2)
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, -1)
ActiveCell.Offset(1, 0).Activate
End If
End Sub

(pour le contexte, quand je double clic dans le zone, les 2 cellules à gauche sont récopier dans la case du double clic...)

sous une feuille mais le probleme est que je vais devoir le dupliquer sur un nombre trés élevé de feuille (+ de 150)

Y a t il un moyen pour éviter de le coller dans ces 150 feuilles .????

Merci d'avance pour votre aide
A+
Guillaume