VBA excel, une seule case coché par ligne?

Bonjour,
Voila je sèche concernant la programmation vba, donc j'ai réellement besoin d'un coup de main!
Pour chaque ligne de mon tableau, j'ai mis à la fin de ces lignes 3 cases à cocher (qui indique chacune sur la même ligne 3 colonne après une valeur vrai ou faux selon le fait que la case soit cocher).

J'ai recupérer ce code qui me permet de l'etendre à toutes les lignes de mon tableau (environ 400 lignes) parcontre je voudrais que pour une ligne seulement une seule case puisse être cocher (chaque ligne me permettant de connaitre l'etat d'avancement des actions "rien", "en cours" et réalisé").

Merci de m'aider et voici le code:

Sub CréerCase()
Dim Cellule As Range

For Each Cellule In Range("R22:R24")

With Cellule
.Select
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
End With

With Selection
.LinkedCell = Cellule.Offset(0, 3).Address
.Characters.Text = ""
End With

Next Cellule

For Each Cellule In Range("S22:S24")

With Cellule
.Select
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
End With

With Selection
.LinkedCell = Cellule.Offset(0, 3).Address
.Characters.Text = ""
End With

Next Cellule

End Sub