Sub import()
Dim Table_import As Range, TablimportVal As Variant
Dim Feuilleimport As String
Feuilleimport = ThisWorbook.Worksheets("import").Range("C3").Value
Set Table_import = ThisWorbook.Sheets("import").Range("A14:H1000")
TablimportVal = Table_import.Value
NbreligneTableimport = ThisWorbook.Sheets("import").Range("A1001")
For i = 1 To NbreligneTableimport
'pour determiner la ligne du tableau devant recevoir les données
nbligneimport = 11 + i
debutcellimport = "A" & nbligneimport
ThisWorkbook.Sheets("COMPTE COURANT").Range(debutcellimport).Value = TablimportVal(i, 1)
Next i
End Sub