Eviction de Zéros résultant de Formules dans ListBox

Option Explicit

Private Sub UserForm_Initialize()
With ListBox1
    .ColumnCount = 10
    .ColumnWidths = "120;0;0;20;0;40;0;0;30;0"
End With
End Sub

=DECALER(Feuil1!$A$19:$J$19;;;NB.SI(Feuil1!$A$19:$A$39;"<>"&""))

Option Explicit
Dim Plage As Range, Déb As Integer, Fin As Integer, J As Integer

Private Sub UserForm_Initialize()
With Sheets("Feuil1")
For J = 19 To .Range("i" & .Rows.Count).End(xlUp).Row
If .Range("i" & J).Value <> 0 Then
Fin = .Range("i" & J).Row
End If
Next
Déb = 19
Set Plage = .Range("a" & Déb, "i" & Fin)
End With
With ListBox1
    .ColumnCount = 10
    .ColumnWidths = "120;0;0;20;0;40;0;0;30;0"
    .List = Plage.Value
End With

End Sub

=DECALER(Feuil1!$A$19:$J$19;;;NB.SI(Feuil1!$A$19:$A$39;"<>"&""))

With ListBox1
    .ColumnCount = 9
    .ColumnWidths = "120;0;0;20;0;40;0;0;30;0"
    .List = Feuil1.Range("Plage").Value
End With

=DECALER(Feuil1!$A$19:$J$1000;;;NB.SI(Feuil1!$A$19:$A$1000;"<>"&"")-1)