Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Integer, ByRef lpdwReserved As Integer) As Integer
If Not IsNTAdmin(0&, 0&) <> 0 Then ' droits Admins requis
MessageBox.Show("Pour continuer, veuillez lancer le programme en Mode Administrateur.")
Exit Sub
End If