XL 2019 Saisie automatique combobox

Private Sub ComboBox1_Change()
    If Me.ComboBox1.ListIndex <> -1 Then
        Me.ComboBox2.ListIndex = Me.ComboBox1.ListIndex
        Me.ComboBox3.ListIndex = Me.ComboBox1.ListIndex
    End If
End Sub

Private Sub ComboBox2_Change()
     If Me.ComboBox1.ListIndex <> -1 Then
        Me.ComboBox1.ListIndex = Me.ComboBox2.ListIndex
        Me.ComboBox3.ListIndex = Me.ComboBox2.ListIndex
    End If
End Sub

Private Sub ComboBox3_Change()
      If Me.ComboBox3.ListIndex <> -1 Then
        Me.ComboBox1.ListIndex = Me.ComboBox3.ListIndex
        Me.ComboBox2.ListIndex = Me.ComboBox3.ListIndex
    End If
End Sub

Private Sub ComboBox1_AfterUpdate()
If ComboBox1.ListIndex > -1 Or ComboBox1 = "" Then Exit Sub
If MsgBox("Ajouter le nom à la liste ?", 4) = 7 Then ComboBox1 = "": Exit Sub
[NOMS].Cells(Application.CountA([NOMS]) + 1) = ComboBox1
ComboBox1.List = [NOMS].Cells(2).Resize(Application.CountA([]) - 1, 2).Value

End Sub


Private Sub ComboBox2_AfterUpdate()
If ComboBox2.ListIndex > -1 Or ComboBox2 = "" Then Exit Sub
If MsgBox("Ajouter le poste à la liste ?", 4) = 7 Then ComboBox2 = "": Exit Sub
[POSTES].Cells(Application.CountA([POSTES]) + 1) = ComboBox2
ComboBox2.List = [POSTES].Cells(2).Resize(Application.CountA([POSTES]) - 1, 2).Value

End Sub

Private Sub ComboBox3_AfterUpdate()
If ComboBox3.ListIndex > -1 Or ComboBox3 = "" Then Exit Sub
If MsgBox("Ajouter le contact à la liste ?", 4) = 7 Then ComboBox3 = "": Exit Sub
[EQUIPES].Cells(Application.CountA([EQUIPES]) + 1) = ComboBox3
ComboBox3.List = [EQUIPES].Cells(2).Resize(Application.CountA([EQUIPES]) - 1, 2).Value
End Sub

ComboBox1.List = [NOMS].Cells(2).Resize(Application.CountA([NOMS]) - 1, 2).Value