Iùmportation fichier excel en access

bonjour,

je n'arrive pas à importer mon fichier excel en access
en réalité, il commence à partir de la cellule B8 (l'entête ne me sert pas) et suivant les infos demandées, il est de taille variable.
par exemple il peut aller de B8 à Z99 ou de B8 à z110111.......
il y a 26 colonnes.
de plus, je voudrais qu'il me garde que les lignes pour lesquelles la colonne "v" vaut ".0"
coment puis je faire?
voici la programmation que g mise mais elle ne marche pas du tout!!
je suis novice et surtout completement perdue!!
HELP! HELP!



Function Import_base_macs2()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim astrColonnes(1 To 26) As String
Dim intColonne As Variant, intligne As Variant


Set db = OpenDatabase("D:\Capelle M\catalogue 2009\PrixSpares2008 version2.mdb")
Set rst = db.OpenRecordset("base macs2")

'se placer sur la feuille concernée, en A1 JE SOUHAITERAI EN B8
ThisWorkbook.worksheets(strFeuille).select

'lire les 26 intitulés de colonnes qui sont aussi les 26 noms de champs dans access. les stocker dans un tableau.
For intColonne = 1 To 26
astrColonnes(intColonne) = cells(1, intColonne).Value
Next intColonne

'se placer en ligne 2 pour commencer la lacture des enreg.
intligne = 2
intColonne = 1

'boucler jusqu'à que la cellule active soit vide
'elle se deplave verticalement dans la feuille de calcul
While Not IsEmpty(cells(intligne, 1).Value)
'lire 20 valeurs et les inscrire dans la table
rst.AddNew
rst![Division] = activesheet.Name
For intColonne = 1 To 26

If rst("v") Like ".0" Then
rst.Update
End If

Next intColonne

'passer à la ligne suivante
rst.Update
intligne = intligne + 1
Wend


'On ferme
rst.Close
Set rst = Nothing
Set db = Nothing

' Set db = CurrentDb()
' DoCmd.OpenTable "base macs"
' Set db = Nothing



End Function