Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Dim i As Long
Application.ScreenUpdating = False
Set Plage = Range("K28:K267")
If Not Intersect(Plage, Target) Is Nothing Then
Application.EnableEvents = False
For i = 28 To 267
If Cells(i, 51).Value <> "" Then
Cells(i, 56).Value = Cells(i, 51).Value
End If
If Cells(i, 52).Value <> "" Then
Cells(i, 57).Value = Cells(i, 52).Value
Else: Cells(i, 57).Clear
End If
If Cells(i, 53).Value <> "" Then
Cells(i, 58).Value = Cells(i, 53).Value
Else: Cells(i, 58).Clear
End If
If Cells(i, 54).Value <> "" Then
Cells(i, 59).Value = Cells(i, 54).Value
Else: Cells(i, 59).Clear
End If
Next i
Application.EnableEvents = True
End If
Set Plage = Nothing
Range("B5").Select
End Sub