Recherche macro pour créer des cases à cocher automatiquemen

Bonjour à tous!!

voilà, je recherche une macro qui permettrait de créer des cases à cocher automatiquement mais je n'y connais pas grand chose et donc je ne sais pas si cela est possible.

Je m'explique dans mon fichier j'ai un récapitulatif qui reprend plusieurs données. Je souhaiterais que lorsque un nom est inséré dans la colonne A (j'ai une macro qui le fait) une case à cocher soit insérée dans la colonne K sur la même ligne.

Autre question: le but de ces case à cocher est qu'elle soit activée si la cellule en A est en couleur. Pensez-vous que cela soit possible ??? (le but étant de reprendre les clients "cochés" pour faire un publipostage)

merci d'avance!!

Silvia

Salut le forum

Essaye avec cette macro

Sub CréerCase()
Dim Cellule As Range
Dim Cb As checkbox

For Each Cb In ActiveSheet.CheckBoxes
    Cb.Delete
Next Cb

For Each Cellule In Range("A1:A" & Range("A500").End(xlUp).Row)

  With Cellule.Offset(0, 10)
    If Cellule.Interior.ColorIndex = 3 Then
    ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height) _
        .Characters.Text = "Case" & .Row
    End If
  End With

Next Cellule

End Sub

Mytå

C'est exactement ça!!! mais par contre si je crée un nouvel onglet ça marche plus...comment faire?

Merci bcp!!

Silvia