Private Sub CommandButton1_Click()
Dim Nb1, Nb2
If Application.WorksheetFunction.Trim(Part_UF01.Value) = vbNullString Then _
MsgBox "renseigner !": Part_UF01.SetFocus: Exit Sub
If Application.WorksheetFunction.Trim(Part_UF02.Value) = vbNullString Then _
MsgBox "renseigner !": Part_UF02.SetFocus: Exit Sub
Nb1 = Replace(Part_UF01.Value, ",", ".")
Nb2 = Replace(Part_UF02.Value, ",", ".")
If Application.WorksheetFunction.Sum(Nb1, Nb2) <> 1 Then
MsgBox "Total différent de 100%"
Else
MsgBox "ok"
End If
End Sub