probleme dans ce code

Dim Feuille(3) As Variant

Sub test()

Dim dl As Integer, x As Integer, i as Integer, x as Integer

Feuille(1) = "feuil1"
Feuille(2) = "feuil2"
Feuille(3) = "feuil3"

For i = 1 To 3
    With Sheets(Feuille(i))
        dl = .Range("b" & .Rows.Count).End(xlUp).Row
        For x = 4 To dl
            If Left(Range("b" & x), 1) = "1" Then
                .Range("k" & x) = .Range("j" & x) * 2
            Else
                .Range("k" & x) = .Range("j" & x) * 3
            End If
        Next x
    End With
Next i
End Sub

Dim Feuille(3) As Variant

Sub test()

Dim dl As Integer, x As Integer, i As Integer

Feuille(1) = "feuil1"
Feuille(2) = "feuil2"
Feuille(3) = "feuil3"

For i = 1 To 3
    Sheets(Feuille(i)).Select
        dl = Cells(65536, 1).End(xlUp).Row
        For x = 4 To dl
            If Left(Cells(x, 2).Value, 1) = "1" Then
                Cells(x, 11).Value = Cells(x, 10) * 2
            Else
                Cells(x, 11).Value = Cells(x, 10) * 2
            End If
        Next x
    End With
Next i
End Sub