Re : Extraire la derniere valeur enregistrée d'une liste avec doublons
salut
Si... tu veux le report directement : avec la macro évènementielle écrite dans le module de la feuille réceptrice :
Code:
Private Sub Worksheet_Activate()
Dim dl As Byte, li As Byte, l As Byte
dl = Feuil1.Range("A65535").End(xlUp).Row: li = 1
For l = dl - 9 To dl
li = li + 1
Feuil1.Cells(l, 1).Resize(1, 5).Copy Cells(li, 1)
Next
End Sub
Remarque li=1 et Cells(li,1) donne la position d'écriture donc Si... tu veux aller ailleurs, change li et 1.