Besoin d'aide pour amélioration de code vba

[BrunoDS78]

Bonjour à tous,

J'utilise actuellement un code (que j'ai trouvé) qui fonctionne mais qui a besoin d'une petite modification que je suis incapable d'accomplir.
Je m'explique:
Ce code implanté dans mon classeur "Recap" récupère des données dans un "classeur1" fermé et les importent dans "Recap".
Mes problemes sont les suivants:
- Les cellule vides de "classeur1" sont importer avec une valeur 0 dans "Récap"
- Je voudrais que dans "Recap" les données s'incrivent à partir de A5 afin de laisser le bouton en haut.

Voici le code:
Sub MonLecteurDeFichierFermes()

'Réinitialisation
Feuil1.[a:t].ClearContents

'Importation
Dim FileToRead As Variant
Dim SheetToWrite As Worksheet
Dim SheetToRead As String
Dim FileName As String, PathString As String
Dim y As Integer, X As Integer
Dim Cell As Variant

Set SheetToWrite = ThisWorkbook.Worksheets("Recap")
SheetToRead = ("Feuil1")

FileToRead = "W:\Données Communes\Classeur1.xls"

y = Len(FileToRead)
For X = y To 1 Step -1
If Mid(FileToRead, X, 1) <> Chr(92) Then
FileName = Mid(FileToRead, X, 1) & FileName
Else
Exit For
End If
Next X

PathString = Left(FileToRead, Len(FileToRead) - Len(FileName))

For Each Cell In Array("a:t")


On Error GoTo Out
SheetToWrite.Range(Cell) = "='" & PathString & "[" & FileName & "]" & SheetToRead & "'!" & Cell
Next Cell
Windows("Classeur1.xls").Activate
Sheets("Feuil1").Select
Range("a1").Select

Exit Sub
Out:
MsgBox "Opération Terminée"
End Sub


Je vous met en PJ les classeurs afin d'illustrer.