Msgbox ; si clique sur "non" recommencer

Private Sub BTN_ActionOk_Click() 'quand on clique sur le bouton OK de l'usf-nouvelleAction
'Dim Ladate As Date 'Ladate est une date
Sheets("Journal").Activate 'on ouvre la page journal
Set Phase = CBX_Phase
 Set Variete = Worksheets("Journal").Range("B:B").Find(CBX_Variet e, LookIn:=xlValues)
 Set Action = CBX_Action
 Set Ladate = TBx_Date
 
rep = MsgBox("phase" & Phase & " " & Chr(10) & _
 "variete" & " " & Variete & Chr(10) & _
 "action" & " " & Action & Chr(10) & _
 "date" & " " & Ladate, vbYesNo)
 If rep = vbYes Then
 Unload Me
 'procédure si clic sur Ok (ça on verra plus tard)
 End If
End Sub

Private Sub BTN_ActionOk_Click()
  Dim Phase As String, Variete As Range, Action As String, LaDate As Date
  With Sheets("Journal")
    Phase = CBX_Phase
    '----> là, que veux-tu ?
    Set Variete = .Range("B:B").Find(CBX_Variete, LookIn:=xlValues)
    '----> vérifier la présence de CBX_Variete ? Dans ce cas il faut la ligne suivante
    If Variete Is Nothing Then Exit Sub
    Action = CBX_Action
    LaDate = TBx_Date
  End With
  If MsgBox("phase " & Phase & Chr(10) & _
            "variete " & Variete & Chr(10) & _
            "action " & Action & Chr(10) & _
            "date " & " " & LaDate, vbYesNo) = vbOK Then _
    MsgBox "que dois-je faire ?", vbQuestion, "Et maintenant, "
  Unload Me
End Sub