Copier données sur une nouvelle feuille en fonction couleur

Bonjour à tous,

En cette veille de Noël je suis en train de me prendre la tête sur une macro dans Excel 2016.

J'ai une feuille nommée "Suivi DO" où je liste tous mes candidats.

Quand une candidature est retenue, je clique sur la case verte "Satisfaisant" afin de colorier ma cellule en vert puis je copie les cellule A,B et G dans la feuille "Suivi DS" à la suite des données précédentes.

Le début de la macro se passe bien, mais je ne sais pas comment lui dire de coller les données à la suite. Pour le moment, j'ai juste cliqué sur la dernière cellule vide.

Et bien sûr cela ne marche pas (sans oublier le message d'erreur qui me dit que la ligne en gras surlignée (plus bas) comporte une erreur...


Voici mon code :


Sub Retenus()

'

' Retenus Macro

'


'

ActiveCell.Select

Selection.Style = "Satisfaisant"

ActiveCell.Range("A1,B1,G1").Select

ActiveCell.Offset(0, 6).Range("A1").Activate

Selection.Copy

Sheets("DS").Select

ActiveWindow.SmallScroll Down:=27

[b][u] ActiveCell.Offset(1, -3).Range("A1").Select[/u][/b]

ActiveSheet.Paste

ActiveCell.Range("A1,B1").Select

ActiveCell.Offset(0, 1).Range("A1").Activate

Application.CutCopyMode = False

With Selection

.HorizontalAlignment = xlLeft

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

With Selection.Font

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

End With

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

End Sub


Pourriez-vous m'aider s'il vous plait ?

Peut-être qu'il y a plus simple ?


Dans un deuxième temps, je me pencherais sur une macro pour supprimer la ligne entière quand la cellule W contient le mot "PR XX"


Je vous remercie !


En attendant, passez un bon réveillon :)


John