Execution d'un code quand cellule active de plusieurs colonnes

Bonjour et merci d'avance,

J'ai ce code qui fonction pour la colonne 2.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim l As Integer, c As Integer
  l = ActiveCell.Row
  c = ActiveCell.Column

If Selection.Column = 2 Then
Cells(1, 30).Value = ActiveCell.Value
Cells(1, 31).Value = Cells(l, c + 1).Value
End If
End Sub

Je veux que le code s'exécute non seulement sur la colonne 2 mais aussi sur les 20 suivantes...

Comment je fais ?

Cdlt,

Bonjour,

Un essai (si j'ai bien saisi) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Integer
c = Target.Column
If c >= 2 And c <= 22 Then
    Cells(1, 30).Value = Target.Value
    Cells(1, 31).Value = Target.Offset(0, 1).Value
End If
End Sub

Merci ! ça fonctionne !