Sub enregistre()
Dim Dest As Worksheet
Set Dest = Sheets("Acceuil")
With Feuil2
derlg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
.Cells(derlg, 1) = Dest.[e6]
.Cells(derlg, 2) = Dest.[e8]
' .Cells(derlg, 3) = Dest.[e11]' valider si permission
.Cells(derlg, 4) = Dest.[e12]
'.Cells(derlg, 5) = Dest.[e13] ' valider si permission
' .Cells(derlg, 6) = Dest.[e14] ' valider si permission
' .Cells(derlg, 7) = Dest.[e15] ' valider si permission
.Cells(derlg, 8) = Dest.[e17]
.Cells(derlg, 9) = Dest.[e19]
End With
End Sub