Repérer valeurs différentes de 0

Bonsoir

j'ai un fichier livraison et je souhaite extraire avec la formule "indirect" dans un autre fichier les codes produits et leurs quantités si ces dernières sont différentes de 0.

Bonjour

Une proposition à tester. Te convient-elle ?

Option Explicit

Dim tablo, tabloR()
Dim i&, j&, k&

Sub Extraction()

    tablo = Range("B2:D" & Range("B" & Rows.Count).End(xlUp).Row)
    ReDim Preserve tabloR(1 To UBound(tablo, 1), 1 To 2)

    k = 0
    For i = 1 To UBound(tablo, 1)
        If tablo(i, 3) <> "" Then
            tabloR(k + 1, 1) = tablo(i, 1)
            tabloR(k + 1, 2) = tablo(i, 3)
            k = k + 1
        End If
    Next i
    Sheets("Feuil2").Range("B2").CurrentRegion.ClearContents
    Sheets("Feuil2").Range("B2").Resize(k, 2) = tabloR
    Sheets("Feuil2").Activate
End Sub

Bye !