Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static NbDate As Byte 'mémorise la variable
Dim Destination, Adr(3) As String, i As Byte
Destination = Array("D22", "D23", "D24", "D25")
If Intersect(ActiveCell, Range("B13:H18")) Is Nothing Then Exit Sub
Sheets("ACCUEIL2").Range(Destination(NbDate)) = ActiveCell
If IsArray([memo]) Then
For i = 0 To 3
Adr(i) = Application.Index([memo], i + 1) 'récupère les adresses mémorisées
Next
End If
Adr(NbDate) = ActiveCell.Address 'nouvelle adresse
ThisWorkbook.Names.Add "Memo", Adr 'mémorisation dans un nom défini
NbDate = NbDate + 1
If NbDate = 4 Then NbDate = 0
End Sub