Problème de listview

bonsoir a tous,
j'ai récement découvert la listview et je me trouve conronter à un problème.
j'ai un tableau avec 4 colonnes
d'après mes recherche, j'ai trouver ce code:

Dim Cell As Range
Dim X As Byte, i As Byte
Dim k As Integer
Dim VarFeuille As String

VarFeuille = "Paramètre" 'definit la feuille cible ( à adpater pour ton projet )

'derniere ligne non vide dans la colonne "S" de la feuille choisie
k = Sheets(VarFeuille).Range("a65536").End(xlUp).Row

With ListView1 'parametrage des entetes de colonne( titre et largeur)
With .ColumnHeaders
.Clear
.Add , , "Nom", 70
.Add , , "Prenom", 70
.Add , , "Adresse", 90
.Add , , "N° TÉLÉ", 90
End With

For Each Cell In Sheets(VarFeuille).Range("a1:a" & k)

X = X + 1
.ListItems.Add , , Cell 'ajout donnée colonne S dans ListView
For i = 1 To 4 'boucle sur les colonnes T à V pour ajouter les données dans la ListView
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, i)
Next i
Next

End With


le problème est que ce code doit fonctionner lorsque l'on début le tableau en A1
Or mon tableau est au milieu de ma feuil, et je vois pas cmment faire. pourriez vous m'aider*
Merci de votre aide.