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