'Evènement appellé par excel lorsqu'une cellule change de contenue
'Le parmètre Target est une référence à la cellule changée
Private Sub Worksheet_Change(ByVal Target As Range)
'Si le numéro de colonne de la cellule est 9 et que la cellule
'contient textuellement "100%"
If Target.Column = 9 And Target.Text = "100%" Then
'Copier la ligne (Target.Row=numéro de la ligne de cellule) de la colonne 1 à la colonne 9
' l'underscore est là pour préciser que la commande continue à la ligne suivante.
'Ligne suivante qui retourne une référence à la prochaine cellule libre
' de la colonne A enpartant du Bas et en remontant
' (équivaut à se placer sur la dernière cellule de la colonne (A65536)
' et faire CTRL+flèche haute)
'les cellules copiées seront placées à partir de cette cellule de destination
Range(Cells(Target.Row, 1), Cells(Target.Row, 9)).Copy _
Sheets("COM Réelles").Range("A" & Rows.Count).End(xlUp).Offset(1)
'La ligne ci-dessous control l'état de la case à cocher
'Si elle est cochée alors on supprime la ligne entière de la cellule
'représentée par le paramètre Target.
If CheckBox1.Value = True Then Target.EntireRow.Delete
End If
End Sub