ouvrir un userform en fonction de la valeur d'une cellule adjacente à une autre

Private Sub Suivant_MAJ_Click()

Dim gls_track As String
Dim rg As Range

If GLS_Track_ID_MAJ.Value = "" Then
  MsgBox "Veuillez saisir un GLS Track ID"
  Exit Sub
End If

'selectionner le userform en fonction du gls track id

'///ajout
Dim S As Worksheet
Dim Plage As Range
Set S = Sheets("essai")
Set Plage = S.Range(S.Cells(2, 2), S.Cells(S.[b2].End(xlDown).Row, 2))
For Each rg In Plage
  If UCase(rg) = UCase(GLS_Track_ID_MAJ) Then
    If rg.Offset(0, -1).Value = "Retour" Then
      Unload MAJ_Recla
      Retour_MR.Show
    End If
  End If
Next rg
'///

End Sub

Private Sub Suivant_MAJ_Click()
Dim rg As Range

  If GLS_Track_ID_MAJ = "" Then
    MsgBox "Veuillez saisir un GLS Track ID"
  ElseIf Type_No_Colis = "GLS Track ID" Then
    'selectionner le userform en fonction du gls track id
    Set rg = Sheets("essai").Columns(2).Find(GLS_Track_ID_MAJ.Text, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If Not rg Is Nothing Then
      If rg.Offset(, -1) = "Retour" Then
        Application.OnTime Now() + 1# / 24 / 60 / 60 / 10, "Afficher"
        Unload Me
      End If
    Else
      MsgBox "Le GLS Track ID '" & GLS_Track_ID_MAJ & "' n'a pas été trouvé !"
      GLS_Track_ID_MAJ.SetFocus
    End If
  End If
End Sub

Private Sub UserForm_Initialize()
  Unload MAJ_Recla
End Sub

Sub afficher()
  Retour_MR.Show
End Sub