Sub statut()
If Intersect(ActiveCell, Range("d8:e38")) Is Nothing Then
MsgBox "Vous n'êtes pas dans la bonne zone de sélection"
Else
For Each cellule In Selection
nom = ActiveSheet.Shapes(Application.Caller).Name
ActiveSheet.Unprotect ("1234")
Select Case nom
Case "recup" 'si bouton absent cliqué (regarde dans la "zone nom" sur la feuille,
' c'est cette info que la macro cherche et non ce qui est écrit sur le bouton
cellule.Interior.ColorIndex = 3 'applique le code couleur
cellule.Value = "recup" 'je pense que c'est clair
Case "present" 'si bouton present cliqué" etc ....
cellule.Interior.ColorIndex = 0
cellule.Value = ""
Case "arrettravail"
cellule.Interior.ColorIndex = 43
cellule.Value = "arret"
Case "ca"
cellule.Interior.ColorIndex = 42
cellule.Value = "ca"
Case "abs"
cellule.Interior.ColorIndex = 3
cellule.Value = "abs"
Case "forma"
cellule.Interior.ColorIndex = 7
cellule.Value = "F"
End Select
ActiveSheet.Protect ("1234")
Next
End If
End Sub