VBA : copier valeurs cellules non " "

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

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim L As Byte, J As Byte
  If Target.Count > 1 Or Intersect(Range("K28:K267"), Target) Is Nothing Then Exit Sub
  L = Target.Row
  For J = 51 To 54
    If Cells(L, J) <> "" Then
      Cells(L, J).Copy
      Cells(L, 5 + J).PasteSpecial xlPasteValues
    Else
      Cells(L, 5 + J).Clear
    End If
    Next
    Application.CutCopyMode = False
    Range("B5").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)