Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Réservation], Target) Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
[ListeB].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.EnableEvents = True
End If
End Sub