Combobox trié

Private Sub ComboBox1_Change()
If ComboBox1 = "" Or Flag = True Then Exit Sub
Flag = True
With Feuille
    'on passe par la variable Ligne qui te permet également
    'de remplir tes autres contrôles avec les données de cette ligne
    Ligne = .Columns(1).Cells.Find(ComboBox1.Value, lookat:=xlWhole).Row
    ComboBox2.Value = .Range("B" & Ligne)
    TextBox1.Value = .Range("C" & Ligne)
End With
Flag = False
End Sub

Private Sub ComboBox2_Change()
If ComboBox2 = "" Or Flag = True Then Exit Sub
Flag = True
With Feuille
    'on passe par la variable Ligne qui te permet également
    'de remplir tes autres contrôles avec les données de cette ligne
    Ligne = .Columns(6).Cells.Find(ComboBox2.Value, lookat:=xlWhole).Row
    ComboBox1.Value = .Range("A" & Ligne)
    ComboBox2.Value = .Range("B" & Ligne)
    TextBox1.Value = .Range("C" & Ligne)
End With
Flag = False
End Sub

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox "Et ta souris???"
KeyAscii = 0
End Sub

Ligne = .Columns(6).Cells.Find(CbxNom.Value, lookin:=xlValues, lookat:=xlWhole).Row

If TxtbNvMatr.Value = "" Then
    MsgBox "Le matricule est manquant", vbOKOnly, "Information manquante"
    TxtbNvMatr.SetFocus
    Us_Nouveau_Salarié.Show
End If

On Error GoTo errorsal
'
    Us_Nouveau_Salarié.Hide
'
' Teste la présence des informations
'
        If TxtbNvMatr.Value = "" Or TxtbNvNom.Value = "" Or TxtbNvPrenom.Value = "" Or TxtbNvContrat.Value = "" _
        Or TxtbNvNbHre.Value = "" Then
        
            If TxtbNvMatr.Value = "" And TxtbNvNom.Value = "" And TxtbNvPrenom.Value = "" And TxtbNvContrat.Value = "" _
            And TxtbNvNbHre.Value = "" Then
                MsgBox "Aucune information n'a été entrée", vbOKOnly, "Informations manquantes"
                Unload Me
                Load Us_Nouveau_Salarié
                Us_Nouveau_Salarié.Show
                Exit Sub
            End If
            
                If TxtbNvMatr.Value = "" Then
                    MsgBox "Le matricule est manquant", vbOKOnly, "Information manquante"
                    TxtbNvMatr.SetFocus
                    Us_Nouveau_Salarié.Show
                    Exit Sub '***************
                End If
                
                If TxtbNvNom.Value = "" Then
                    MsgBox "Le nom est manquant", vbOKOnly, "Information manquante"
                    TxtbNvNom.SetFocus
                    Us_Nouveau_Salarié.Show
                Exit Sub '***************
                End If
               
                If TxtbNvPrenom.Value = "" Then
                    MsgBox "Le prénom est manquant", vbOKOnly, "Information manquante"
                    TxtbNvPrenom.SetFocus
                    Us_Nouveau_Salarié.Show
                Exit Sub '***************
                End If
                
                If TxtbNvContrat.Value = "" Then
                    MsgBox "Le type de contrat est manquant", vbOKOnly, "Information manquante"
                    TxtbNvContrat.SetFocus
                    Us_Nouveau_Salarié.Show
                Exit Sub '***************
                End If
            
                If TxtbNvNbHre.Value = "" Then
                    MsgBox "Le nombre d'heures/mois est manquant", vbOKOnly, "Information manquante"
                    TxtbNvNbHre.SetFocus
                    Us_Nouveau_Salarié.Show
                Exit Sub '***************
                End If
'suite du code...

Private Sub CB_Quit_App_Click()
'
    Sheets("Accueil").Select
    End
'
End Sub

If Flag = False Then
  'Ici le code "d'erreur"
  Flag = True
End If

Flag As Boolean ' à ajouter en entête d'un module standard.

Sub Action1()

'ici le code de mon action1 qui fonctionne
End Sub
Sub Action2()

'ici le code de mon action2 qui fonctionne
End Sub

Sub CommandButton1_Click()
Action1
End Sub
Sub CommandButton2_Click()
Action2
End Sub

Sub CommandButton3_Click()
Action1
Action2
End Sub

Public Flag As Boolean
Sub Action1()

'ici le code de mon action1 qui fonctionne
Flag = False
End Sub
Sub Action2()
 'ici le code de mon action2 qui pourra être réalisé après une action1
If Flag = False Then
 'ici le code de mon action2 qui ne sera pas réalisé après une action1
  Flag = True 'et on remet sur True
End If
End Sub