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