Microsoft 365 Comment forcer l'utilisation de ENTER dans une macro (avec Sendkey ???)

Dim celPrec As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not celPrec Is Nothing Then
        If celPrec.Address = ActiveCell.Offset(-1).Address Then
            MsgBox "précédente = dessus " & celPrec.Address
        ElseIf celPrec.Address = ActiveCell.Offset(, -1).Address Then
            MsgBox "précédente = gauche " & celPrec.Address
        ElseIf celPrec.Address = ActiveCell.Offset(, 1).Address Then
            MsgBox "précédente = droite " & celPrec.Address
        Else
            'd'ailleurs...
        End If
    End If
    Set celPrec = ActiveCell
End Sub