Public Sub Sans_Copie()
[color=green4]' Une autre façon d'accèder a des cellules est la propriété cells(Ligne, Colonne)[/color]
[color=green4]' Ici ont instruit la cellules visée pour la 'copie'( en fait ont dit seulement a la cellules A1 quel valeur elle doit prendre)[/color]
Range('I' & nbligne).FormulaR1C1 = '=VLOOKUP (RC[-3],price,3)'
Cells(1, 1).Value = Range('I' & nbligne).Value
End Sub