Private Sub V_NOM_Change()
If V_ARTICLE.Value = "-" Then
APERCU_1.Value = Trim(Sansaccent(UCase(Replace(V_NOM.Value, " ", "-")))) & " (" & V_TYPE.Value & ")"
APERCU_2.Value = V_TYPE.Value & " " & Trim(Sansaccent(UCase(V_NOM.Value)))
Else
APERCU_1.Value = Trim(Sansaccent(UCase(Replace(V_NOM.Value, " ", "-")))) & " (" & V_TYPE.Value & " " & V_ARTICLE.Value & ")"
APERCU_2.Value = V_TYPE.Value & " " & V_ARTICLE.Value & " " & Trim(Sansaccent(UCase(V_NOM.Value)))
End If
End Sub