VBA Excel extracting datas

Option Explicit
Sub Bouton1_Clic()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim FL2 As Worksheet
Dim i As Integer, DernLigne As Long
    Set FL1 = Worksheets("Feuil1")
    Set FL2 = Worksheets("Feuil2")
    'dernière ligne colonne A
DernLigne = FL2.Range("A" & Rows.Count).End(xlUp).Row  + 1
    NoCol = 4 'lecture de la colonne D
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "Départ" Then
       FL2.Range("A" & DernLigne + i & ":D" & DernLigne + i).Value = FL1.Range("A" & NoLig & ":D" & NoLig).Value
      i = i + 1
        End If
    Next
    Set FL1 = Nothing
End Sub