Sub SurfaceRectangleSphérique()
Dim Latmax, Latmin, Longmax, Longmin, n&, Ldeg#, pas#, lat#, s#
Latmax = 52.714667 'degrés
Latmin = 52.310158
Longmax = 13.756256
Longmin = 12.826538
n = 1000 'nombre d'itérations
Ldeg = 40000 / 360
pas = (Latmax - Latmin) / n
For n = 1 To n
lat = Latmin + (n - 1 / 2) * pas
s = s + Ldeg * pas * (Longmax - Longmin) * Ldeg * Cos(lat * Application.Pi / 180)
Next
MsgBox "Surface " & Format(s, "0.00 \k\m2") & " ou " & Format(s * 100, "0 \h\a")
End Sub