Sub SupprimeCases()
Dim Obj As Shape
Dim j As Byte
Dim cell As Range
' For j = 9 To 14 'ne marche pas
' With Range("B" & j) 'ne marche pas
'Boucle sur les formes de la feuille active
For Each Obj In ActiveSheet.Shapes
' For Each cell In Range("B9:B14") 'ne marche pas
' If Obj.Name Like "Check Box*" Then Obj.Delete
' Next cell
'Identifie les objets formulaires et les supprime
If Obj.Name Like "Check Box*" Then Obj.Delete 'ça fonctionne pour traiter seulement les checkbox
' If Obj.AlternativeText = "15" Then Obj.Delete 'ça fonctionne mais mes cases n'ont pas de texte
' If Obj.FormControlType = xlCheckBox Then Obj.Delete 'ne marche pas
Next Obj
' End With
' Next j
' Columns("k:k").ClearContents
End Sub