Modifier code

Bonjour,

Comment modifier le code suivant afin de calculer à partir de la colonne DW de la feuille1 mais n'afficher les résultats que dans la colonne A de la feuille6

Public Sub tranche2()

Dim m As Single

Dim e As Integer

Dim x As Integer

Dim y As Integer

For i = 2 To Range("DW" & Rows.Count).End(xlUp).Row

m = Range("DW" & i).Value

e = Int(m / 500)

x = e * 500

y = x + 500

Range("FK" & i) = "[" & CStr(x) & "; " & CStr(y) & "]"

Next i

End Sub

MERCI

Bonjour,

A tester.

Option Explicit
Public Sub tranche2()
Dim Ws1 As Worksheet, Ws2 As Worksheet
Dim e As Integer
Dim x As Integer
Dim y As Integer

    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    Set Ws1 = Worksheets("Feuil1")
    Set Ws2 = Worksheets("Feuil6")

    For i = 2 To Ws1.Range("DW" & Rows.Count).End(xlUp).Row
        e = Int(Ws1.Cells(i, "DW") / 500)
        x = e * 500
        y = x + 500
        Ws2.Cells(i, "FK") = "[" & CStr(x) & "; " & CStr(y) & "]"
    Next i

    Application.Calculation = xlCalculationAutomatic
    Set Ws1 = Nothing: Set Ws2 = Nothing

End Sub