aide dans les colonnes

bonjour
je voudais savoir comment faire pour ne pas avoir toutes mes cellules de selection mais simplement si je selectionne la case a par un x elle active ThisWorkbook.Sheets("copie").range("zaza").Copy dans la cellule g
Private Sub Worksheet_Change(ByVal Target As range)
 If Target.Column = 1 Then
    With range(Cells(Target.Row, 3), Cells(Target.Row, 36)).Interior
        Select Case Target.Value
       Case "x"
            .ColorIndex = 15
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
        
       Case Else
            .ColorIndex = xlNone
        End Select
 
ThisWorkbook.Sheets("copie").range("zaza").Copy range("g:g")
End With
End If
End Sub
merci de votre aide
 pat

Perso je voudrais juste comprendre la question

 Cliquer "Réponse Acceptée"
Partageons Notre Savoir & Nos Acquis- JML

re bonjour
en faite ma colonne g tout est ecris je veux que si je selectionne ma cellule a que ThisWorkbook.Sheets("copie").range("zaza").Copy  s'adapate a ma cellule g
est ce cela possible ?



 pat

Toujours pas clair
Mais bon essayons quelque chose
Mémorise une macro avec ce qui doit être effectué puis affecte cette macro à un bouton qui exécutera la macro à partir de la cellule sélectionnée

 Cliquer "Réponse Acceptée"
Partageons Notre Savoir & Nos Acquis- JML

bonjour
quand je fais ca cela me fais une ligne or que je veux que cela me fasse toutes les lignes selectioner dans la colonne a


 pat

Ce que je te propose c'est de m'envoyer à l'adresse ci-dessous un fichier contenant les données au départ et telles que tu les souhaites à l'arrivée
jml_exchange@yahoo.fr
Poste un message sur ce site quand c'est Ok

 Cliquer "Réponse Acceptée"
Partageons Notre Savoir & Nos Acquis- JML

bonjour
je ne sais pas si tu as recu mon fichier je te l'ai envoyer a ton adresse
merci de ton aide

 pat