Sub MaFonction()
If PopupBox("Opération irréversible. Souhaitez-vous continuez ?") = True Then
...
...
...
Else
...
End If
...
End Sub
Function PopupBox(text As String) As Boolean
[I]Code ici si je ne me trompe pas, sauf si vous voyiez plus optimisé et pratique[/I]
End Function
..