Private Sub Worksheet_Change(ByVal target As Range)
Dim t, tt
tt = Array(2, 3, 4, 7)
t = Array("C:C", "C:C,E:E", "C:C,E:E,G:G", "C:C,E:E,G:G,I:I,K:K,M:M")
MsgBox Range(t(Application.Match([ChxCol], tt, 0) - 1)).Address ' juste pour test
Range(t(Application.Match([ChxCol], tt, 0) - 1)).Select
End Sub