Navigation entre UserForm

Option Explicit
Private Sub UserForm_Click()
UserForm2.Show 0
AppActivate (Me.Name)
End Sub

Option Explicit
Private Sub UserForm_Activate()
With UserForm1
    Me.Left = .Left + .Width
    Me.Top = .Top
End With
End Sub

Option Explicit
Private Sub UserForm_Click()
UserForm2.Show 0
AppActivate (Me.Caption)
End Sub

Option Explicit
Private Sub LSV_MOD_Click()
Dim numpat, Num_pages_scan, test_NumPat_SCAN, NumPat_SCAN, test_heure_scan, test_pages, test_taille, test_date_scan As String
Dim derlig, i As Long

If test_PDF_USF = "OK" Then
    Unload PDF_test
    test_PDF_USF = "KO"
End If

derlig = Range("A65536").End(xlUp).Row
DT_SCAN = Format(LSV_MOD.SelectedItem.ListSubItems(2).Text, "DD/MM/YYYY")
HEURE_scan = Format(LSV_MOD.SelectedItem.ListSubItems(3).Text, "HH:MM:SS")
Nb_pages = LSV_MOD.SelectedItem.ListSubItems(1).Text
Taille = LSV_MOD.SelectedItem.ListSubItems(4).Text
NomficPAT = LSV_MOD.SelectedItem
NomFicTemp = ActiveWorkbook.name
Windows(NomFicTemp).Activate
NomFeuiL = ActiveWorkbook.ActiveSheet.name
RepScan = "Z:\REC\ADM\"

For i = 1 To derlig
nomFicH = Sheets(NomFeuiL).Range("B" & i).Value
'Repfic = RepScan
numpat = Sheets(NomFeuiL).Range("A" & i).Text
test_heure_scan = Sheets(NomFeuiL).Range("D" & i).Text
test_pages = Sheets(NomFeuiL).Range("F" & i).Text
test_taille = Split(Sheets(NomFeuiL).Range("E" & i).Text, ",")(0)
'test_taille2 = Sheets(NomFeuiL).Range("E" & i).Value
test_date_scan = Sheets(NomFeuiL).Range("C" & i).Text

If numpat = NomficPAT And test_heure_scan = HEURE_scan And test_pages = Nb_pages And test_taille & "Ko" = Taille Then

PDF_test.Show 0
AppActivate (Me.Caption)

Exit For

End If

Next i

End Sub

Option Explicit
Private Sub UserForm_Activate()
With USF_2A_GES_DOC_AJOUT
    Me.Left = .Left + .Width
    Me.Top = .Top
End With

End Sub

Private Sub UserForm_Initialize()

test_PDF_USF = "OK"
  With AcroPDF1
  .Src = RepScan & nomFicH 'Nom du fichier ou lien URL
  .LoadFile (RepScan & nomFicH)
  .setShowScrollbars (True) 'Affiche l'assenceur True/False
  .setShowToolbar (False) 'Affiche la barre d'outil True/false
  .setPageMode ("none") 'Determine le mode d'affichage none/bookmarks/thumbs
  .setLayoutMode ("SinglePage") 'Determine le type d'affichage DontCare/SinglePage/OneColumn/TwoColumnLeft/TwoColumnRight
  .setCurrentPage ("1") 'Numéro de la page a afficher
  .setView ("Fit") 'Fixe la méthode d'affichage Fit/FitH/FitV/FitB/FitBH/FitB
  .setZoom (52) 'Determine de niveau de zoom
End With
End Sub

If numpat = NomficPAT And test_heure_scan = HEURE_scan And test_pages = Nb_pages And test_taille & "Ko" = Taille Then
GoTo fin
End If
Next i
Exit Sub
fin:
PDF_test.Show 0
AppActivate (Me.Caption)
End Sub