salut céline,
sans prétention aucune...essaye de placer ce code dans ton userform correspondant au formulaire...si ca ne marche pas essaye d'envoyer le fichier si j'ai du temps j'y jetterais un coup d'oeil...
Bon courage
Private Declare Function FindWindowA Lib 'User32' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib 'User32' (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib 'User32' (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Initialize()
Dim hWnd As Long, exLong As Long, zFactor As Integer
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -1)
If exLong And &H880000 Then SetWindowLongA hWnd, -1, exLong And &HFF77FFFF
zFactor = 95 * CInt(Application.Width / Me.Width)
If zFactor > 400 Then zFactor = 400
MsgBox zFactor
Me.Width = Application.Width
Me.Height = Application.Height
Me.Zoom = zFactor
End Sub