Extraction de donnée boucle while wend

Option Explicit

' feuille source
Const FS = "Feuil1"
Const lidebFS = 1
Const codebFS = "A"
Const cofinFS = "B"
' feuille but
Const FB = "Feuil2"
Const lidebFB = 1
Const codebFB = "A"

Private Sub CommandButton1_Click()
Dim lifinFS As Long, liFS As Long, plageFS As Range
Dim lifinFB As Long, liFB As Long
Application.ScreenUpdating = False
lifinFS = Sheets(FS).Range(codebFS & Rows.Count).End(xlUp).Row
liFS = lidebFS
liFB = lidebFB
While liFS < lifinFS
  Set plageFS = Sheets(FS).Range(codebFS & liFS & ":" & cofinFS & liFS)
  plageFS.Copy Sheets(FB).Range(codebFB & liFB)
  liFS = liFS + 1
  liFB = liFB + 1
Wend
Application.ScreenUpdating = True
End Sub

Option Explicit

' feuille source
Const FS = "Feuil1"
Const lidebFS = 1
Const codebFS = "A"
Const cofinFS = "B"
' feuille but
Const FB = "Feuil2"
Const lidebFB = 1
Const codebFB = "A"

Private Sub CommandButton1_Click()
Dim lifinFS As Long, plageFS As Range
Dim lifinFB As Long
lifinFS = Sheets(FS).Range(codebFS & Rows.Count).End(xlUp).Row
Set plageFS = Sheets(FS).Range(codebFS & lidebFS & ":" & cofinFS & lifinFS)
plageFS.Copy Sheets(FB).Range(codebFB & lidebFB)
End Sub

Public Const coFB_Sens = "F"

    If Sheets(FS).Range(coFS_AC1 & liFS) < 0 Then 
      Sheets(FB).Range(coFB_Sens & liFB) = "Import" 
    Else 
      Sheets(FB).Range(coFB_Sens & liFB) = "Export" 
    End If