Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("B11:B22,B30:B41,B50:B62,B71:B82,B91:B102"))
If Target Is Nothing Then Exit Sub
Dim plage As Range, ref As Range
Set plage = Sheets("H_CPE").Range("B4", Sheets("H_CPE").Range("B65536").End(xlUp))
Me.Unprotect 'ajouter éventuellement le mot de passe
For Each Target In Target
Set ref = plage.Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If ref Is Nothing Then
With Target.Offset(, 1).Resize(, 13)
.ClearContents
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlDiagonalDown).LineStyle = xlNone
End With
Else
ref.Offset(, 1).Resize(, 13).Copy Target.Offset(, 1)
End If
Next
Me.Protect
End Sub