Exporter données des cellules non vides

bonjour à tous,

Je souhaite exporter (ou copier) d'un fichier Donnéesdentree.xlsm fermé vers un autre les cellules non vides uniquement. J'ai trouvé une formule qui va très bien mais lorsque la cellule dans le fichier source est vide, il remonte dans le fichier de sortie "0". J'ai donc cherchouillé un peu et voici la formule que j'ai trouvée :

Sub ImporterDonnees ()

Dim Chemin As String, Fichier As String
Dim c As Range

Chemin = "D:\Entrée\"
Fichier = "Donneesdentree.xlsm"

ThisWorkbook.Names.Add "plage", _
                RefersTo:="='" & Chemin & "[" & Fichier & "]Feuil1'!$A$1:$F$10"
                
        With Sheets("Feuil2")
        
            .[A1:F10] = "=plage"
                For Each c In Plage
                If Value <> "" Then
            .[A1:F10].Copy
            Sheets("Feuil1").Range("A1").PasteSpecial xlPasteValues
            .[A1:F10].Clear
                
                Else: c = ""
                
        End With
        
End Sub

Lorsque je lance la macro, un message remonte "Erreur de compilation : End with sans with"
Je cherche à comprendre d'où vient le problème mais je bloque.
Quelqu'un pourrait m'aider ?
Merci.