Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bytColumn As Byte
Dim intLineRef As Integer
If Not Intersect(Target, Range('C4:IV4')) Is Nothing Then ' Je me base que sur les clic de la ligne 4
With Target
bytColumn = .Column
' J'emplois la logique que si on est sur une colonne IMPAIR on effectue un traitement
If bytColumn Mod 2 Then
intLineRef = Cells(65532, bytColumn - 1).End(xlUp).Row
' Pas de copy paste, parce que une boucle infini s'engage
Range(Cells(4, bytColumn), Cells(intLineRef, bytColumn)).Value = _
Range(Cells(4, bytColumn - 1), Cells(intLineRef, bytColumn - 1)).Value
End If
End With
End If
End Sub