Bonjour,
Tu peux rajouter cette macro dans ton UserForm :
Private Sub MultiPage1_Change()
If Me.MultiPage1.Value = 1 Then
Me.MultiPage1.Width = 446
Me.Width = 436
Else
Me.MultiPage1.Width = 336
Me.Width = 346
End If
End Sub
Nota : Un Workbook_Open comme suit ferait aussi bien l'affaire !
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Feuil1.Activate 'procédure permettant de selectionner la feuille"Donnéesorties"
ActiveWindow.ScrollRow = [Tbl_Donnéesorties].Rows.Count
Feuil1.Cells([Tbl_Donnéesorties].Rows.Count, 1).Activate
UserForm1.Show 'Pour afficher le formulaire à l'ouverture du classeur
End Sub
A+