Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
Application.EnableEvents = False
Set f2 = Sheets("Image")
If Not Intersect(Target, Columns(3)) Is Nothing Then
If Range(Target.Address).Value <> f2.Range(Target.Address).Value Then
TargetImage = f2.Range(Target.Address).Value
With f2
Set x = Columns(3).Find(TargetImage)
If Not x Is Nothing Then
Pos = x.Address
Do
If x.Row <> Target.Row Then
Cells(x.Row, "C") = Target.Value
'Modification of the Image sheet
f2.Cells(x.Row, "C") = Target.Value
f2.Range(Target.Address).Value = Target.Value
Else
Set x = .FindNext(x)
End If
Loop While Not x Is Nothing And x.Address <> Pos
End If
End With
End If
End If
Set f2 = Nothing
Application.EnableEvents = True
End Sub