Code VBA pour calcul d'une aire géométrique

Bonjour à tous.

Je désire calculer sous excel l'aire d'une figure géométrique.

J'ai joint un fichier avec la figure et la formule de calcul.

je voudrais éviter d'écrire toute la formule dans une cellule excel.

Merci d'avance pour votre aide

bonjour,

une soltuion via une fonction personnalisée

code à introduire dans un nouveau module

Function surface(x As Range, y As Range)
    s = 0
    For i = 2 To x.Count
        s = s + (x(i - 1) - x(i)) * (y(i - 1) + y(i))
    Next i
    s = s + (x(x.Count) - x(1)) * (y(y.Count) + y(1))
    s = s * 0.5
    surface = Abs(s)
End Function

utiliser la fonction dans une cellule excel

=surface(plagedesx;plagedesz), x1 et z1 commencent et terminent la figure.