Selection par ligne et par colonne vba excel

Option Explicit

Private Sub CommandButton1_Click()
Const codeb = 1
Const sep = ";"
Const ForReading = 1, ForAppending = 8
Const create = True
Dim lideb As Long, li As Long, lifin As Long, co As Long, cofin As Long
Dim ligne As String
Dim fs, f
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.OpenTextFile("d:\printfx000\test1.txt", ForAppending, create)
  lideb = Selection.Row
  lifin = Range("A65536").End(xlUp).Row
  cofin = Range("IV1").End(xlToLeft).Column
  For li = lideb To lifin
    ligne = Cells(li, codeb)
    For co = codeb + 1 To cofin
      ligne = ligne & sep & Cells(li, co).Value
    Next co
    ligne = ligne & vbCrLf
    f.write ligne
  Next li
  f.Close
End Sub