Combobox : Affichage d'un item par default en fonction du choix d'un autre

ComboBox1.Value = UserForm1.ComboBox1.Value

Private Sub UserForm_Initialize()


On Error Resume Next
 Dim cell As Range
   
    With Workbooks("Liste.xlsx").Sheets("VIANDES")
    If Err = 0 Then MsgBox " Base de donnée ouverte " Else MsgBox " La base de donnée n'a pas été ouverte!!!!"

        Me.ComboVM1.List = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
End With
     'j'ai actuellement le même résultat que la solution de Pierrot grâce à cette ligne :   
    ComboVM1.Value = Cells(8, 2)
End Sub

Private Sub ComboVM1_Change()
'With Sheets("VIANDES")
With Workbooks("Liste.xlsx").Sheets("VIANDES")
    If ComboVM1.ListIndex = -1 Then
        Me.ComboPv1 = ""
        Me.TextBoxEfv1 = ""
        Me.TextBoxRv1 = ""
        Me.ComboOuV1 = ""
       Me.ComboCoV1 = ""
     Exit Sub
    End If
  Me.ComboPv1 = .Cells(ComboVM1.ListIndex + 2, 2)
  Me.TextBoxEfv1 = .Cells(ComboVM1.ListIndex + 2, 3)
  Me.TextBoxRv1 = .Cells(ComboVM1.ListIndex + 2, 6)
  Me.ComboOuV1 = .Cells(ComboVM1.ListIndex + 2, 9)
  Me.ComboCoV1 = .Cells(ComboVM1.ListIndex + 2, 10)
End With
End Sub

Private Sub CmdEnregistrer_Click()

Application.ScreenUpdating = False
'With Sheets("VIANDES")
With Workbooks("Liste.xlsx").Sheets("VIANDES")


lg = 0
Select Case ComboVM1.ListIndex
Case -1
If ComboVM1 <> "" Then lg = .Range("A65536").End(xlUp).Row + 1
Case Else
lg = ComboVM1.ListIndex + 2
End Select
If lg > 0 Then
.Cells(lg, 1) = Me.ComboVM1
.Cells(lg, 2) = Me.ComboPv1
.Cells(lg, 3) = Me.TextBoxEfv1
.Cells(lg, 6) = Me.TextBoxRv1
.Cells(lg, 9) = Me.ComboOuV1
.Cells(lg, 10) = Me.ComboCoV1
End If


With ActiveSheet

.Cells(8, 2) = ComboVM1.Value

Workbooks("Liste.xlsx").Sheets("VIANDES").[A2].Sort key1:=Workbooks("Liste.xlsx").Sheets("VIANDES").[A2], Order1:=xlAscending, Header:=xlGuess

Application.ScreenUpdating = True
Unload Me

If Not IsEmpty(Range("A1").Value) Then ComboBox1.Value = Range("A1").Value