Sub Patrick_McGoohan_Tribute()
Dim JeNeSuisPas1N°
JeNeSuisPas1N° = 1: [A1] = JeNeSuisPas1N°:[A1:A1600].DataSeries 2, 3, 1, 1
End Sub
Sub Chanel_N°5_Tribute()
Dim Coco: Coco = Array(1, 2)
[A1:A2] = Application.Transpose(Coco): [A1:A2].AutoFill [A1:A1600], 0
End Sub