Sub macro()
If Worksheets("Feuil1").Range("A1").Value < 253 Then
UserForm1.TextBox1.BackColor = RGB(255, 87, 71)
If MsgBox(" Et refaire un contrôle. " & vbCrLf _
& vbCrLf, vbOKOnly + vbInformation, "ATTENTION") = vbOK Then
' GoTo reinit
End If
Else
UserForm1.TextBox1.BackColor = RGB(212, 255, 212)
End If
UserForm1.Show
End Sub