Private Sub ComboBox1_Change()
Dim C As Range
Me.ComboBox2.Clear
With Sheets("Auvergne")
For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
If C.Value = Me.ComboBox1.Value Then
Me.ComboBox2.AddItem C.Offset(, 1).Value
End If
Next C
End With
End Sub
Private Sub ComboBox2_Change()
Dim C As Range
With Sheets("Auvergne")
For Each C In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
If C.Value = [D3] And C.Offset(, 1).Value = [D7] Then
[D12] = C.Offset(, 2).Value
[G12] = C.Offset(, 3).Value
[D15] = C.Offset(, 4).Value
End If
Next C
End With
End Sub