Private Sub CommandButton1_Click()
Dim T As Variant
Dim Rng As Range
Set Rng = Range("I17:I35")
T = Application.Index(Rng, [{1;2;3;4;5;6;7;8;9;10;11;12;14;15;16;19}], [{1}])
Sheets("GRAPHIQUES").Range("A3").Offset(0, Range("C12")).Resize(16, 1) = T
End Sub