Macro copier / coller sous condition

Option Explicit
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 derligne As Long
Dim obj As Object
    Set FL1 = Worksheets("Extraction") 'a adapter
      Set FL2 = Worksheets("Suivi actions") 'a adapter
    NoCol = 3 'lecture de la colonne C
    Application.ScreenUpdating = False
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "Site 1" Then
        derligne = FL2.Range("A" & Rows.Count).End(xlUp).Row + 1
  Set obj = FL2.Columns("A").Find(FL1.Cells(NoLig, NoCol - 2), , , xlWhole)
If Not obj Is Nothing Then
MsgBox "La ligne " & obj.Rows & " existe déjà!", vbCritical, "Ajout de ligne" ' on peut supprimer le message
Else
FL1.Range("A" & NoLig & ":J" & NoLig).Copy _
    Destination:=FL2.Range("A" & derligne)
    End If
        End If
     Next
    Set FL1 = Nothing
     Application.ScreenUpdating = True
End Sub