Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:C2")) Is Nothing Then
Me.Range("F1:F" & Me.Range("A" & Rows.Count).End(xlUp).Row).Clear
Set cherche = Feuil1.Range("F1:F" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Find([B2], LookIn:=xlValues, lookat:=xlWhole)
If Not cherche Is Nothing Then
adr = cherche.Address
Do
If cherche.Offset(0, 4) = [C2] Then Me.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = cherche.Offset(0, 9).Value
Set cherche = Feuil1.Range("F1:F" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).FindNext(cherche)
Loop While Not cherche Is Nothing And cherche.Address <> adr
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:C2")) Is Nothing Then
Me.Range("AG1:AG" & Me.Range("D" & Rows.Count).End(xlUp).Row).Clear
Set cherche = Feuil1.Range("AG1:AG" & Feuil1.Range("D" & Rows.Count).End(xlUp).Row).Find([B2], LookIn:=xlValues, lookat:=xlWhole)
If Not cherche Is Nothing Then
adr = cherche.Address
Do
If cherche.Offset(0, 4) = [C2] Then Me.Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = cherche.Offset(0, 9).Value
Set cherche = Feuil1.Range("AG1:AG" & Feuil1.Range("D" & Rows.Count).End(xlUp).Row).FindNext(cherche)
Loop While Not cherche Is Nothing And cherche.Address <> adr
End If
End If
End Sub