XL 2013 Copier coller sur 3 onglets

Sub Copie()
    Dim DL%
    Application.ScreenUpdating = False
    DL = Range("B65500").End(xlUp).Row 'Dernière ligne occupée
    Sheets("Table").Range("B6:B" & DL) = Range("B6:B" & DL).Value
    Sheets("Score").Range("B6:B" & DL) = Range("B6:B" & DL).Value
End Sub

Sub Copie2()
    Dim DL%
    Application.ScreenUpdating = False
    Sheets("Table").Range("B6:B60") = Range("B6:B60").Value
    Sheets("Score").Range("B6:B60") = Range("B6:B60").Value
End Sub

Sub MiseAjourRegistre()
Dim arrWSN
arrWSN = Array("Inscription", "Table", "Score")
Worksheets(arrWSN).FillAcrossSheets Worksheets("Inscription").Range("B5:B60")
End Sub

Sub MiseAjourRegistre_B()
Dim arrWSN
arrWSN = Array("Feuil1", "Feuil2", "Feuil3")
Worksheets(arrWSN).FillAcrossSheets Worksheets("Feuil1").Range("B5:B60")
End Sub
Sub MiseAjourRegistre_C()
Dim arrWSN
arrWSN = Array("Feuil1", "Feuil2", "Feuil3")
Worksheets(arrWSN).FillAcrossSheets Worksheets("Feuil1").Range("B5:B60"), xlFillWithContents
End Sub
Sub MiseAjourRegistre_D()
Dim arrWSN
arrWSN = Array("Feuil1", "Feuil2", "Feuil3")
Worksheets(arrWSN).FillAcrossSheets Worksheets("Feuil1").Range("B5:B60"), xlFillWithFormats
End Sub
Sub Pour_Tester()
Feuil1.Columns(2).Delete
Feuil2.Columns(2).Delete
Feuil3.Columns(2).Delete
With Feuil1.[B5]
    .Value = "ITEMS"
    .Font.Bold = -1
    .Interior.Color = RGB(197, 197, 197)
End With
Feuil1.Cells(6, 2).Resize(Application.RandBetween(5, 60)) = "=RoW()*PI()"
Feuil1.UsedRange = Feuil1.UsedRange.Value
Feuil1.UsedRange.Borders.Value = 1
End Sub