copie de ligne avec condition

Sub testcopieur()
    i = Range("A65536").End(xlUp).Row
    Set plage = Nothing
    For Each c In Feuil1.Range("d1:d" & i)
        If c = "x" And c.Offset(0, -1) = 100 Then
            j = c.Row
            If plage Is Nothing Then
                Set plage = Feuil1.Range(Cells(j, 1), Cells(j, 4))
            Else
                Set plage = Union(plage, Feuil1.Range(Cells(j, 1), Cells(j, 4)))
            End If
        End If
    Next c
    plage.Copy Destination:=Feuil2.Range("a1")
End Sub

Sub testcopieur()
    i = Range("A65536").End(xlUp).Row
    Set plage = Nothing
    For Each c In Feuil1.Range("d1:d" & i)
        If LCase(c) = "x" And c.Offset(0, -1) = 100 Then
            j = c.Row
            If plage Is Nothing Then
                Set plage = Feuil1.Range(Cells(j, 1), Cells(j, 4))
            Else
                Set plage = Union(plage, Feuil1.Range(Cells(j, 1), Cells(j, 4)))
            End If
        End If
    Next c
    If Not plage Is Nothing Then plage.Copy Destination:=Feuil2.Range("a1")
End Sub

If Ceci = Cela Then Instruction_Unique Else Autre_Instruction_Unique

If Ceci = Cela Then
    Première_Instruction
    Deuxième instruction
Else
    Troisième_Instruction
End If