XL 2010 copie macro onglet sujet

bonjour à tous
dans un de mes onglets j'ai inseré une macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = Target.Column = 1 And Target.Count = 1
If Cancel Then Target.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub


mais comment faire pour copier ce code et le coller dans un autre onglet

merci