VBA laisse vide si rien

Bonjour,

J''ai repris le code de Baboutz (merci ;-) ) pour la recopie de cellule d'une feuille sur une autre feuille pour recap : (ajoute dans le tableau)

Sub Lien()

    'Déclaration des variables
    Dim LI As Integer 'LI pour LIgne

    'Ajout ligne + compte nb ligne
    Feuil4.ListObjects("Tableau1").ListRows.Add
    LI = Feuil4.ListObjects("Tableau1").ListRows.Count

    'Ajoute dans le tableau
    Feuil4.ListObjects("Tableau1").DataBodyRange.Rows(LI) = Array(Feuil8.Range("L5"), Feuil8.Range("C4"), Feuil8.Range("D4") & Range("E4") & Range("G4") & Range("H4") & Range("I4"), Feuil8.Range("B8"), Feuil8.Range("K8"), Feuil8.Range("B14"), Feuil8.Range("B15"), Feuil8.Range("B16"), Feuil8.Range("B17"), Feuil8.Range("K14"),  lienPDF)

End Sub
 Le code faisant le travail : 

'Ajoute dans le tableau
    Feuil4.ListObjects("Tableau1").DataBodyRange.Rows(LI) = Array(Feuil8.Range("L5"), Feuil8.Range("C4"), Feuil8.Range("D4") & Range("E4") & Range("G4") & Range("H4") & Range("I4"), Feuil8.Range("B8"), Feuil8.Range("K8"), Feuil8.Range("B14"), Feuil8.Range("B15"), Feuil8.Range("B16"), Feuil8.Range("B17"), Feuil8.Range("K14"),  lienPDF)

Mais lorsque dans une des cellules il n'y a rien, excel inscrire #N/A > possible qu'il n'indique rien, qu'il laisse vide.

Merci

Rechercher des sujets similaires à "vba laisse vide rien"