Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [R8] Then
If [R8] = "Dinar algérien" Then Columns(6).NumberFormat = "#,##0 \Dz\d;[Red]-#,##0 \Dz\d"
If [R8] = "Real brésilien" Then Columns(6).NumberFormat = "[$R$ -416]#,##0_ ;[Red]-[$R$ -416]#,##0 "
If [R8] = "Dollar US" Then Columns(6).NumberFormat = "[$$-409]#,##0.00"
End If
End Sub