Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
cancel = True
lig = Selection.Row
With Feuil2
.[E9] = Feuil1.Cells(lig, 3) 'le dernier chiffre est la colonne
.[E10] = Feuil1.Cells(lig, 4) 'on peux aussi mettre "D" au lieu 4
.[E11] = Feuil1.Cells(lig, 5)
.[E12] = Feuil1.Cells(lig, 6)
.[F12] = Feuil1.Cells(lig, 7)
.[E13] = Feuil1.Cells(lig, 8)
'la suite pas tout fait
.Select
End With
End Sub