Bonjour
Tes cases à cocher en colonne A doivent s'appeler impérativement Case à cocher 1 à Case à cocher 5
Celle en colonne H, son nom doit être précisé dans la macro
Il te faut le numéro 6 (à remplacer dans le code)
Avant
If .Shapes("Check Box 9").ControlFormat.Value = 1 Then
Famille = True
End If
Après
If .Shapes("Check Box 6").ControlFormat.Value = 1 Then
Famille = True
End If
Mais je n'ai pas eu de plantage à la ligne que tu indiques