Sub permit()

Dim A As Integer
Dim B As Integer
Dim C As Integer



A = InputBox("1ere valeur ?")
B = InputBox("2eme valeur ?")
C = A
A = B
B = C

MsgBox ("apres permutation, A vaut " & A & " et B vaut " & B)

End Sub