Sub PositionneUserform(Devant As Integer)
Dim Position As Long, Hwnd As Long, Hauteur, Largeur, X, Y
With Me
Hauteur = .Height
Largeur = .Width
X = .Left
Y = .Top
Hwnd = FindWindowA(vbNullString, .Caption)
Position = SetWindowPos(Hwnd, Devant, 0, 0, 0, 0, 0)
.Width = Largeur
.Height = Hauteur
.Left = X
.Top = Y
End With
End Sub