XL 2013 VBA copier si condition

Sub test()
'Déclaration d'une variable entière pour stocker le nombre de ligne de ton tableau
Dim NombreLigne As Integer
'Sélection de la feuille sur laquelle se trouve les données à traiter
Sheets("Feuil2").Select
'Enregistrement du nombre de ligne de ton tableau
DERNIERELIGNE= Range("B" & Rows.Count).End(xlUp).Row
'Boucle qui va de 1 au nombre total de ligne
For i = 2 To DERNIERELIGNE 'pour commencer à la seconde ligne
    'Si la cellule de la ligne i et de la seconde colonne (B) est inférieur à 2 fois " B2", alors
    If Cells(i, 2) <= 2*range("B2").valueThen
        'La valeur de la cellule de la ligne i et de la colonne 1 (B) est recopié sur la même ligne i en colonne 3 (C)
        Cells(i, 5).Value = Cells(i, 2).Value
    'Fin de la condition If
    End If
    'Si la cellule de la ligne i et de la seconde colonne (B) est supérieur ou égale à 2 fois " B2", alors
    If Cells(i, 2) >= 2*range("B2").value Then
        'La valeur de la cellule de la ligne i et de la colonne 1 (B) est recopié sur la même ligne i en colonne 6 (F)
        Cells(i, 6).Value = Cells(i, 2).Value
    'Fin de la condition If
    End If
'Fin de la boucle For
Next
End Sub