Sub Exemple()
Dim i, j As Integer
Dim MonTableau As Variant
Range("C3:C100").ClearContents
ReDim MonTableau(1 To 10)
j = 1
For i = 3 To 12
MonTableau(j) = Cells(i, 1).Value
j = j + 1
Next i
Range("C3").Resize(UBound(MonTableau), 1) = WorksheetFunction.Transpose(MonTableau)
End Sub