Sub Raccourcis()
Dim M_S$, racc, dl As Range
With [A1:A3]
.Clear: .Value = Application.Transpose([{1,2,3}])
End With
'Ecriture clasique avec Offset
Set dl = [A65536].End(xlUp)
M_S = "Dernière :" & dl.Offset(0).Value & vbLf
M_S = M_S & "Avant-dernière: " & dl.Offset(-1) & vbLf
M_S = M_S & "Première: " & dl.Offset(-2) & vbLf & vbLf
M_S = M_S & "Pour voir avec l'écriture raccourcie," & vbLf & _
"cliquer sur OUI, sinon sur NON."
racc = MsgBox(M_S, vbInformation + vbYesNo, "Ecriture classique")
'Ici emploi de l'écriture raccourcie
If racc = 6 Then
[B1] = "Dernière: " & dl(1)
[B2] = "Avant-dernière: " & dl(0)
[B3] = "Première: " & dl(-1)
Else
End
End If
End Sub