Private Sub Worksheet_Calculate()
Dim lig As Variant
With Sheets("Feuille2") 'nom à adapter
lig = Application.Match([A3], .[A:A], 0)
If IsNumeric(lig) Then
Application.EnableEvents = False 'désactive les évènements
.Cells(lig, 2) = [I3]
Application.EnableEvents = True 'réactive les évènements
End If
End With
End Sub