Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A4:A43")) Is Nothing Then
With Sheets("BD").Range("A:A")
Set trouve = .Find(Target)
If Not trouve Is Nothing Then
Target.Offset(0, 1) = trouve.Offset(0, 3) 'Raison
Target.Offset(0, 2) = trouve.Offset(0, 2) 'Emplacement
Target.Offset(0, 3) = trouve.Offset(0, 17) 'Observation
Target.Offset(0,4)=Target.Offset(-1,4)+1 'N° incrémentation
End If
End With
End If
Application.EnableEvents = True
End Sub