Sub selrange_jusquaFinLigne()
Set ac = ActiveCell
'--- sélection de toute la ligne depuis activecell
Range(Cells(ac.Row, ac.Column), Cells(ac.Row, Cells(ac.Row, Columns.Count).End(2).Column)).Select
End Sub
Sub selrange_jusquaFincolactive()
Set ac = ActiveCell
'--- sélection jusqu'à la dernière colonne active
Range(Cells(ac.Row, ac.Column), Cells(ac.Row, Cells(ac.Row, ac.Column).End(2).Column)).Select
End Sub