Voilà un bout de code qui va surement t'aider, si tu as des questions n'hésite pas!
Dim objexcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
'sachant qu'il y a 65536 cellules ds la colonne A, la ligne ci-dessous nous trouve la première cellule vide la colonne A:
objexcel.ActiveCell.Range("A65536" ).End(xlUp).Offset(1, 0)
'pour connaitre le numéro de la ligne ou se trouve la dernière cellule pleine:
objexcel.ActiveCell.Range("A1" ).End(xlDown).Row
wbExcel.Close SaveChanges:=True 'Fermeture du classeur Excel
objexcel.Quit
Set wsExcel = Nothing
Set wbExcel = Nothing
Set objexcel = Nothing