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, 51).Copy
Cells(i, 56).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Else: Cells(i, 56).Clear
End If
If Cells(i, 52).Value <> "" Then
Cells(i, 52).Copy
Cells(i, 57).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Else: Cells(i, 57).Clear
End If
If Cells(i, 53).Value <> "" Then
Cells(i, 53).Copy
Cells(i, 58).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Else: Cells(i, 58).Clear
End If
If Cells(i, 54).Value <> "" Then
Cells(i, 54).Copy
Cells(i, 59).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Else: Cells(i, 59).Clear
End If
Next i
Application.EnableEvents = True
Range("B5").Select
End If
Set Plage = Nothing
End Sub