colonne limite à ne pas dépasser avec offset

Sub Décaler()

Dim a As Integer
Dim maselection As Integer

Range("B3:V3").ClearContents
Range("B2").Select
ActiveCell.End(xlToRight).Select
maselection = ActiveCell.Value
a = Range("A1").Value

If ActiveCell.Column - a < 2 Then
    Cells(ActiveCell.Row + 1, 2) = maselection
Else
    ActiveCell.Offset(1, -a) = maselection
End If

End Sub

Sub Décaler()
 
Dim Deplacement As Byte
Dim Choix As Range
 
Range("B3:V3").ClearContents
Deplacement = Range("A1")
 
Set Choix = Range("B2").End(xlToRight)
 
If Choix.Column - Deplacement < 2 Then
Cells(Choix.Row + 1, 2) = Choix
Else
Choix.Offset(1, -Deplacement) = Choix
End If
 
End Sub