Sub macro()
Dim longue As Integer
Dim larg As Integer
longue = InputBox("Entrez la longueur")
larg = InputBox("entrez la largeur")
MsgBox ("Le perimetre est " & perimetre(longue, larg))
End Sub
Function perimetre(longue As Integer, larg As Integer) As Integer
perimetre = 2 * (longue + larg)
End Function