Private Sub ComboBox1_Change()
With Sheets("devise")
Select Case .[D1]
Case "EURO"
If Me.ComboBox1.ListIndex = 1 Then
Lig = 1
Else
Lig = IIf(Me.ComboBox1.ListIndex = 2, 2, 3)
End If
.Cells(Lig, 2).Copy
Case "CHF"
If Me.ComboBox1.ListIndex = 0 Then
Lig = 7
Else
Lig = IIf(Me.ComboBox1.ListIndex = 1, 8, 9)
End If
.Cells(Lig, 2).Copy
Case "USD"
If Me.ComboBox1.ListIndex = 0 Then
Lig = 4
Else
Lig = IIf(Me.ComboBox1.ListIndex = 2, 5, 6)
End If
.Cells(Lig, 2).Copy
Case "DTN"
If Me.ComboBox1.ListIndex = 0 Then
Lig = 10
Else
Lig = IIf(Me.ComboBox1.ListIndex = 1, 11, 12)
End If
.Cells(Lig, 2).Copy
End Select
End With
With Range("C10:N38") // cellule debut: cellule fin
.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
Select Case ComboBox1.ListIndex
Case Is = 0
.NumberFormat = "#,##0.00 [$€-81D];-#,##0.00 [$€-81D]"
Case Is = 1
.NumberFormat = "#,##0.000 [$$];-#,##0.00 [$$]"
Case Is = 2
.NumberFormat = "#,##0.00 [$CHF];-#,##0.00 [$CHF]"
Case Is = 3
.NumberFormat = "#,##0.000 [$DTN];-#,##0.000 [$DTN]"
End Select
Sheets("devise").[D1] = Me.ComboBox1
End With
[C10].Select
End Sub