\documentclass[a4paper]{book}
%====DÉPENDANCES
\usepackage{tcolorbox}
\tcbuselibrary{skins,theorems}

\usepackage{lipsum}

%====CLÉ TCB POUR LE SOUS-TITRE (une seule fois dans le préambule)
\tcbset{
  SousTitre/.store in=\BoxSubTitle,
  SousTitre={}
}

%====STYLE CREATIONBOITES <-> TCBTHEOREM
\NewDocumentCommand\CreationBoiteTcbTheorem{ O{black} m m m D<>{} }{%
  % #1 = couleur (opt, défaut black)
  % #2 = nom environnement
  % #3 = libellé
  % #4 = préfixe label
  % #5 = options \newtcbtheorem (entre < >)
  \tcbset{%
    #2ThStyle/.style={%
      enhanced, sharp corners,
      boxrule=0.8pt,
      colframe=#1, colback=white,
      colbacktitle=white,
      coltitle=black,
      fonttitle=\bfseries\sffamily\vphantom{(qÉ\textsuperscript{*})},
      titlerule=0.4pt,
      titlerule style=#1!60,
      left=1.5mm, right=1.5mm,
      separator sign={~:},
      SousTitre={},%
      after title={%
        \ifx\BoxSubTitle\empty\else
        \hfill
        {\bfseries\sffamily\color{red!75!black}\BoxSubTitle}%
        \fi
      }%
    }%
  }%
  \newtcbtheorem[#5]{#2}{#3}{#2ThStyle}{#4}%
}

\CreationBoiteTcbTheorem%
  [purple]%
  {BoiteTheoreme}%
  {Théorème}%
  {thm}%
  <number within=chapter>

\CreationBoiteTcbTheorem%
  [teal]%
  {BoiteLemme}%
  {Lemme}%
  {lem}%
  <number within=chapter>

\begin{document}

\chapter{Test}

\begin{BoiteTheoreme}[SousTitre={MP*}]{Un théorème crucial}{thm:vital}
\lipsum[1][1-2]
\end{BoiteTheoreme}

\begin{BoiteTheoreme}[]{}{thm:test}
\lipsum[1][1-2]
\end{BoiteTheoreme}

\begin{BoiteLemme}[SousTitre={MP*}]{Un lemme crucial}{lem:vital}
\lipsum[1][1-2]
\end{BoiteLemme}

\end{document}