Consolidation plusieurs onglets

[dj dim]

Bonjour le Forum,

Je fais une fois de plus appel à vos services car j'ai une erreur sur mon code

Sub recap2()
  
Sheets("Facturation").Unprotect Password:="dt"
  
  Ligne = 6
  For Each s In Array("FacturationDBX13", "FacturationDBX26", "FacturationDBX69")
    For lig = 6 To Sheets(s).[A500].End(xlUp).Row
     If Sheets(s).Cells(lig, 1).Value <> "" Then
       Sheets(s).Rows(lig).Copy Sheets("Facturation").Cells(Ligne, 1)
       Ligne = Ligne + 1
     End If
    Next lig
  Next

Sheets("Facturation").Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, Password:="dt"

End Sub

En effet, il respecte bien la condition puisqu'il récupère les bonne lignes mais ne copie pas la valeur.(cellules laissées blanches).

Or mes feuilles A, B et C sont alimentées chacunes par 1 classeur distinct via une liaison.

Merci par avance pour aide.