Option Explicit
Dim Cellule As Range
Dim Debut As Range
Private Sub OptionHT_Click()
Set Debut = Range("Prix")
For Each Cellule In Range(Debut.Offset(1, 0), Cells(65536, Debut.Column).End(xlUp))
Cellule.Value = Cellule.Value / (1 + Range("Taux") / 100)
Next Cellule
Debut.Value = "Prix HT"
End Sub
Private Sub OptionTTC_Click()
Set Debut = Range("Prix")
For Each Cellule In Range(Debut.Offset(1, 0), Cells(65536, Debut.Column).End(xlUp))
Cellule.Value = Cellule.Value * (1 + Range("Taux") / 100)
Next Cellule
Debut.Value = "Prix TTC"
End Sub
Private Sub OptionButton1_Click()
End Sub