Copier une macro d'un classeur vers un autre

Private Sub Worksheet_Activate()
Dim lig As Long, idc As Long, idl As Long, col As Long, tbd
    Application.ScreenUpdating = False
    tbd = [Coaches].Value
    Cells(2, 4).Resize(UsedRange.Rows.Count, UsedRange.Columns.Count).ClearContents
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        col = 3
        For idl = 1 To UBound(tbd)
            For idc = 2 To UBound(tbd, 2)
                If Cells(lig, 1).Value = tbd(idl, idc) Then
                    col = col + 1
                    Cells(lig, col).Value = tbd(idl, 1)
                End If
            Next idc
        Next idl
    Next lig
    Application.ScreenUpdating = True
End Sub