Salut jouf,
Pour récupérer les colonnes choisies dans la ligne active, une solution en passant les index de colonne début et fin en variable:
Sub jouf()
Dim Rg As Range
Dim NumLigne As Long
Dim StartCol As Integer, EndCol As Integer
StartCol = 2
EndCol = 14
NumLigne = ActiveCell.Row
Set Rg = Range(Cells(NumLigne, StartCol), Cells(NumLigne, EndCol))
Rg.Select
End Sub