Try this:
Private Sub Worksheet_Calculate()
    
    CommandButton21.Visible = (Range("K4").Value <= 183)
    CommandButton22.Visible = (Range("K4").Value <= 183)

End Sub