action de copier coller avec click sur des cellules

Bonjour à toutes et à tous,

J'ai mis en place des formulaires sans passer par des userforms (pour des raisons de nombre de questions)
Et, j'ai un programme qui me permet de mettre un X et de colorer une cellule en un clic en fonction de son emplacement et que la cellule soit bordée. (en faite, j'ai fait des cases à cocher "manuellement").

J'aimerai, en plus de cocher ces cases, pouvoir en même temps copier coller les cellules en lien avec ces cases à cocher (les cellules d'à côté) dans une feuille vierge. Et je coince 🙂

Ci dessous mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 _
And (Target.Column = 4 _
Or Target.Column = 7 _
Or Target.Column = 10 _
Or Target.Column = 16 _
Or Target.Column = 20 _
Or Target.Column = 24 _
Or Target.Column = 28 _
Or Target.Column = 38 _
Or Target.Column = 42) _
And Target.Borders(xlEdgeLeft).Weight = xlMedium _
And Target.Borders(xlEdgeTop).Weight = xlMedium _
And Target.Borders(xlEdgeBottom).Weight = xlMedium _
And Target.Borders(xlEdgeRight).Weight = xlMedium Then


Target.Value = IIf(Target.Value = "X", "", "X")
Target.Font.Name = "WingDings"
Target.Font.Size = 12
Target.Interior.ColorIndex = IIf(Target.Value = "X", 41, 0)
End If

End Sub

...et je vous mets en pièce jointe un exemple


Merci par avance de votre aide.

Bien cordialement
CHTING