Pas besoin de VBA pour cela, il suffit d'une formule en A12l :
=MAX(A1:A10)
Si tu tiens au VBA tu peux faire la même chose :
[A12].FormulaLocal = "=MAX(A1:A10)"
et éventuellement ajouter :
[A12].Value=[A12].Value
qui est l'équivalent de Copier / Collage spécial : valeurs
