Private Sub Worksheet_BeforeDoubleClick(ByVal target As Excel.Range, Cancel As Boolean)
'si le double click a lieu dans les cellules remplies de la colonne A alors
If Not Intersect(target, Range("A1:A" & Range("A65536").End(xlUp).Row)) Then
'on copie la la plage de cellule de A à H de la ligne dans laquelle le double click a ete fait
Range("A" & target.Row & ":H" & target.Row & "").Copy
'pour la feuille 2
With Sheets("Feuil2")
'on la sélectionne
.Select
'on se place en A1
.Range("A1").Select
'on fait un collage spécial en transposant
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, transpose:=True
End With
End If
End Sub