Private Sub CommandButton1_Click()
If Cells(Ligne, 3).Offset(, 15) [B]< 2[/B]Then
[B] Cells(Ligne, 3).Offset(, 15) = IIf(Cells(Ligne, 3).Offset(, 15) = 1, 2, 1)[/B]
Cells(Ligne, 3) = TextBox1.Value
Else
TextBox1 = ActiveSheet.Range("C" & Ligne)
MsgBox "Changement refusé !", , "Attention,"
End If
Unload UserForm1
End Sub