Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, i As Variant
Set r = Intersect(Target, UsedRange.Columns(2))
'Columns (colonne avec ref à chercher)
If r Is Nothing Then Exit Sub
With Feuil11 'CodeName Feuille source
For Each r In r 'si entrées /effacements multiples
i = Application.Match(r, .Columns(1), 0)
If IsNumeric(i) Then .Cells(i, 5).Copy r(1, 5) Else r(1, 3) = "" 'copier-coller
'cells (ligne, colonne)
'copy r( nombre décalage vertical,colonne de donnée avec commentaire)
Next
End With
End Sub
Private Sub Worksheet_Activate()
Worksheet_Change [B:B] 'lance la macro
End Sub