Sub point_zero()
'
'empêche de voir le travail de la macro
Application.ScreenUpdating = False
Dim DL As Long, Tablo
Tablo = Array("F7", "W7", "F9", "P9", "Y9", "F11", "P11", "F15", "P15", "E19", "J19", "E21", "O19", "A1", "T19", "H25", "Q25", "H29", "Q29", "H27", "H31", "H33", "Q31", "H37", "N37", "H39", "N39", "H41", "N41", "H43", "N43")
DL = Worksheets("Point ZERO").Range("A" & Rows.Count).End(xlUp).Row + 1
For i = LBound(Tablo) To UBound(Tablo)
Worksheets("Point ZERO").Cells(DL, i + 1) = Worksheets("Point ZERO").Range(Tablo(i))
Next
' réactiver M à J de l'écran
Application.ScreenUpdating = True
End Sub