Bonjour à Tous

dans un usf je fais fais un choix dans une combobox.
Une msgbox s'ouvre (Oui:Non) si le choix est bon tout va bien
par contre si le choix n'est pas bon il faudrait pouvoir choisir à nouveau dans la combo

je patauge un peu
si après mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub cbliste_Change()
Dim Msg As String, Titre As String, Style As Integer, Reponse As Integer, nomfichier As String
Dim fichier As String, nomfich As String, pos As String, chemin As String, repertoire As String
    If MsgBox("Vous avez sélectionné le fichier " & cbliste.Value & "." & Chr(10) & "Confirmez-vous ce choix ?", vbYesNo, "CHOIX DU FICHIER ") = vbYes Then
        fichier = cbliste.Value
        Workbooks.Open Filename:=repertoire & fichier
        nomfich = repertoire & fichier
       'MsgBox nomfich
       chemin = ActiveWorkbook.Name
       pos = InStr(chemin, ".xls")
       nomfichier = Left(chemin, pos - 1)
       ActiveWorkbook.SaveAs Filename:= _
       repertoire & nomfichier & ".xlsm", _
       FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
       ActiveWorkbook.Close
       Workbooks.Open Filename:=repertoire & nomfichier & ".xlsm"
 
 End If
' MENU.Hide
 'synthese
 
End Sub
si quelqu'un a une idée lorsque la réponse est non
cordialement