Copie ligne sans cellule vide

Sub Macro1()

'Déclaration des variables
Dim tabv1(0 To 1, 0 To 10)
Dim i, k, Colonne_fin As Integer
Dim ligne_donnee, ligne_copie As Integer

'Initialisation des variables
ligne_donnee = 2
ligne_copie = 2
Colonne_fin = ThisWorkbook.Sheets("BASE").Cells(ligne_donnee, 50).End(xlToLeft).Column
    
'Récupération des données
For i = 1 To Colonne_fin
    If Sheets("BASE").Cells(ligne_donnee, i) <> 0 Then
        tabv1(0, k) = Sheets("BASE").Cells(ligne_donnee, i)
        k = k + 1
    End If
Next

'Recopie des données
Sheets("RESULTAT").Activate
Range(Cells(ligne_copie, 1), Cells(ligne_copie, 20)).Resize(1, k) = tabv1
    
End Sub

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

For Each cel In Sheets("BASE").Range("A2").CurrentRegion 'boucle sur toutes les cellules de la plage des cellules éditées adjacente à A2 de l'onglet "BASE"
    With Sheets("RESULTAT") 'prend en compte l'onglet "RESULTAT"
        'définit la cellule de destination
        Set dest = IIf(.Range("A2").Value = "", .Range("A2"), .Cells(2, Application.Columns.Count).End(xlToLeft).Offset(0, 1))
    End With 'fin de la prise en compte de l'onglet "RESULTAT"
    If cel.Value <> 0 Then cel.Copy dest 'si la cellule est diférente de zéro, copie et colle la cellule cel dans dest
Next cel 'prochaine cellule de la boucle
End Sub

=SI(COLONNE()>SOMME(N(BASE!$A2:$H2<>0));"";INDEX(BASE!2:2;PETITE.VALEUR(SI(BASE!$A2:$H2<>0;COLONNE(BASE!$A2:$H2));COLONNE())))

=SI(COLONNE()>SOMME(N(BASE!$A2:$H2>0));"";INDEX(BASE!2:2;PETITE.VALEUR(SI((BASE!$A2:$H2<>0)*(ESTNUM(BASE!$A2:$H2));COLONNE(BASE!$A2:$H2));COLONNE())))