Changer les valeurs d'une cellule

Bonjour

J'ai la colonne "D" d'un tableau, qui comporte des valeurs : 1, 2, 3, 4 etc...

Je voudrais que la valeurs :

1 devienne 500

2 devienne 510

3 devienne 520

etc...

comment puis réaliser cela avec VBA

Merci

Bonjour

Un essai à tester.. Te convient-il ?

Option Explicit

Dim tablo, tabloR()
Dim i&

Sub NxNombres()

    tablo = Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
    ReDim tabloR(1 To UBound(tablo, 1), 1 To 1)

    For i = 1 To UBound(tablo, 1)
        tabloR(i, 1) = 500 + (i - 1) * 10
    Next i
    Range("F2").Resize(UBound(tablo, 1), 1) = tabloR
End Sub

Bye !