Private Sub CommandButton3_Click()
If UserForm1.Prix_HT_1.Value = "" Then
Else
UserForm1.Prix_TTC_1.Value = UserForm1.Prix_TTC.Value
End If
If UserForm1.Prix_HT_2.Value = "" Then
Else
UserForm1.Prix_TTC_2.Value = UserForm1.Prix_TTC.Value
End If
If UserForm1.Prix_HT_3.Value = "" Then
Else
UserForm1.Prix_TTC_3.Value = UserForm1.Prix_TTC.Value
End If
If UserForm1.Prix_HT_4.Value = "" Then
Else
UserForm1.Prix_TTC_4.Value = UserForm1.Prix_TTC.Value
End If
If UserForm1.Prix_HT_5.Value = "" Then
Else
UserForm1.Prix_TTC_5.Value = UserForm1.Prix_TTC.Value
End If
If UserForm1.Prix_HT_6.Value = "" Then
Else
UserForm1.Prix_TTC_6.Value = UserForm1.Prix_TTC.Value
End If
If UserForm1.Prix_HT_7.Value = "" Then
Else
UserForm1.Prix_TTC_7.Value = UserForm1.Prix_TTC.Value
End If
End Sub