Copier valeurs cellule en fonction d'une autre cellule

Bonjour à tous,

Le titre n'est pas très parlant, le fichier en pièce jointe sera plus clair.

J'essaye de copier la valeur (stock) d'une cellule en face d'une autre selon une condition (PLU identique).

D'avance merci pour votre aide, et bon week-end !

Avec une photo c'est plus parlant....

Bonjour

Un essai à tester. Te convient-il ?

Option Explicit

Dim tablo, tabloR
Dim i&, iR&

Sub Souhait()

    tablo = Range("A2:AB" & Range("A" & Rows.Count).End(xlUp).Row)
    tabloR = Range("C2:D" & Range("C" & Rows.Count).End(xlUp).Row)
    For iR = 1 To UBound(tabloR, 1)
        For i = 1 To UBound(tablo, 1)
            If tablo(i, 1) = tabloR(iR, 1) Then
                tabloR(iR, 2) = tablo(i, 2)
            End If
        Next i
    Next iR
    Range("C2").Resize(UBound(tabloR, 1), 2) = tabloR
End Sub

Bye !

Bonjour,

Merci pour la réponse, en effet ça fonctionne nickel...
Cependant, comme je ne maitrise pas les macros, il y a pas moyen de passer par une formule ?

Sinon je me débrouillerai sur mon fichier de 14000 lignes avec la macro, je pense qu'en copiant collant et en réfléchissant un peu je peux m'en sortir...