Merci de votre réponse rapide
je rencontre un petit problème j'ai utiliser votre formule cependant ne connaissant pas très bien vba
j'ai donc crée le module
Sub stock()
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Feuil1.Range("B1:B2")) Is Nothing Then
On Error Resume Next
Feuil2.Cells(2, WorksheetFunction.Match(Feuil1.Range("B1"), Feuil2.Range("A1:D1"), 0)) = Feuil1.Range("B2")
End If
End Sub
End Sub
et ça me met erreur de compilation end sub attendu
que dois-je faire ?