Salut,
Probleme résolue voici les modifiactions apporté !
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$3" Then
Application.EnableEvents = False
Target.Offset(0, 1) = Sheets("Feuil2").Range("REF").Find(Target, , xlValues, xlWhole).Offset(0, -6)
Application.EnableEvents = True
ElseIf Target.Address = "$C$3" Then
Application.EnableEvents = False
Target.Offset(0, -1) = Sheets("Feuil2").Range("PROD").Find(Target, , xlValues, xlWhole).Offset(0, 6)
Application.EnableEvents = True
End If
End Sub
merci encore ! bonne fin de journée
NI3