Dim oRange As Range Dim aTablo(0 To 2, 0 To 1) As String ' 3 lignes, 2 colonnes aTablo(0, 0) = "A1" aTablo(0, 1) = "B1" aTablo(1, 0) = "A2" aTablo(1, 1) = "B2" aTablo(2, 0) = "A3" aTablo(2, 1) = "B3" Set oRange = Range("A1:B3") oRange.FormulaArray = aTablo