Private Sub ComboBox2_Change()
If ComboBox2.Value = "Europe" Then
ComboBox3.List = VBA.Array("France", "Allemagne", "Danemark")
ElseIf ComboBox2.Value = "Afrique" Then ComboBox3.List = VBA.Array("RDC", "Cameroun", "Egypte")
ElseIf ComboBox2.Value = "Amérique" Then ComboBox3.List = VBA.Array("USA", "Canada", "Vénézuela")
ElseIf ComboBox2.Value = "Asie" Then ComboBox3.List = VBA.Array("Vietnam", "Chine", "Inde")
ElseIf ComboBox2.Value = "Océanie" Then ComboBox3.List = VBA.Array("Australie", "Nouvelle Zélande")
End If
ComboBox3.ListIndex = 0
End Sub