Copie des données

est t'il possible d'agrandir automatiquement l user form à la taille de l'écran j ai testé sur un autre pc ma formule ne fonctionne pas

Ce n'est jamais simple ce truc là et ici ce pourrait être plus compliqué car votre userform est déjà grande et cela va impliquer de modifier la tailles des objets je pense.

Regardez par exemple ce lien dans lequel je postais un code --> https://forum.excel-pratique.com/excel/adapter-userform-a-l-ecran-16608#p95877

Par contre on pourrait mettre des boutons pour réduire ou agrandir selon le cas. Regarde la solution proposée par Bob. Si intérêt on peut adapter le code

Autre solution mais qui ne te conviendra pas

Dans l'userform, tout en haut mets ce code

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 Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dans l'userform la Private sub initialize, mettre

Mettre ceci à la place de ton code

Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H10000 'maximise
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H20000 'minimise

Ces deux codes ne sont pas de moi bien sûr... et ne fonctionne que sous Excel Windows