[COLOR=YellowGreen]' si le n° de la colonne de la cellule double cliquée est différente de 3[/COLOR]
[COLOR=YellowGreen]'alors je quitte la procédure[/COLOR]
If Target.Column <> "3" Then Exit Sub
[COLOR=YellowGreen]'je copie la ligne entière de la feuille 1 de la cellule ayant comme ligne la ligne de la cellule double cliquée et de colonne 1[/COLOR]
Sheets(1).Cells(Target.Row, 1).EntireRow.Copy
[COLOR=YellowGreen]'dans la feuille 2 de la cellule ayant pour ligne la première ligne vide (c'est pour cela que je mets +1) de la 1ère colonne [/COLOR]
Sheets(2).Cells(Sheets(2).Range("A60000").End(xlUp).Row + 1, 1)
[COLOR=YellowGreen]'je colorie la cellule du double clique[/COLOR]
Sheets(1).Cells(Target.Row, 3).Interior.Color = RGB(255, 0, 0)