VBA Excel. Notion de déplacement du pointeur sur le cellules

Option Explicit

'---- Déterminer les coordonnées en pixels, par rapport à l'écran, du coin supérieur gauche d'une cellule Excel
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type position
    Left As Integer
    Top As Integer
End Type
Private Const GARDEFOU As Byte = 20

Sub Positionne()
    Place_Curseur Sheets("Feuil1").Range("B22")
End Sub

Private Sub Place_Curseur(Cellule As Range)
Dim PosCur As position, p As Pane
    
    Set p = QuelPane(Cellule, True)
    If Not p Is Nothing Then
        PosCur = TopLeftCellule(p, Cellule, False)
        SetCursorPos PosCur.Left, PosCur.Top
    End If
    Set Cellule = Nothing
    Set p = Nothing
End Sub
Private Function TopLeftCellule(ByVal LePane As Pane, ByVal rng As Range, Optional ByVal DansLaCellule As Boolean = True) As position
Dim cel As Range, cc As Byte, cr As Byte, L As Integer, t As Integer, B As Integer, R As Integer, IniL As Integer, INIT As Integer, IniR As Integer, IniB As Integer
    With LePane
        If rng.Column = .ScrollColumn Then cc = 0 Else cc = 5
        If rng.Row = .ScrollRow Then cr = 0 Else cr = 5
        L = .PointsToScreenPixelsX(rng.Left) - cc: IniL = L
        t = .PointsToScreenPixelsY(rng.Top) - cr: INIT = t
        R = .PointsToScreenPixelsX(rng.Offset(1, 1).Left) - cc: IniR = R
        B = .PointsToScreenPixelsY(rng.Offset(1, 1).Top) - cr: IniB = B
        On Error Resume Next
        Set cel = ActiveWindow.RangeFromPoint(L, t)
        Do Until cel.Left >= rng.Left
            L = L + 1
            If L > IniL + GARDEFOU Then GoTo BoucleInfinie
            Set cel = ActiveWindow.RangeFromPoint(L, t)
        Loop
        Do Until cel.Top >= rng.Top
            t = t + 1
            If t > INIT + GARDEFOU Then GoTo BoucleInfinie
            Set cel = ActiveWindow.RangeFromPoint(L, t)
        Loop
        Set cel = Nothing
    End With
    TopLeftCellule.Left = IIf(DansLaCellule, L, L - 1)
    TopLeftCellule.Top = IIf(DansLaCellule, t, t - 1)
    Exit Function
BoucleInfinie:
    MsgBox "Conditions impossibles pour le positionnement du curseur"
End Function

Private Function QuelPane(ByVal t As Range, Optional ByVal ActivationFeuil As Boolean = False) As Pane
Dim LngNbPanes As Long, LngPane As Long
    If ActiveWindow.VisibleRange.Worksheet.Parent.Name = t.Worksheet.Parent.Name Then
        If ActiveWindow.ActiveSheet.Name = t.Worksheet.Name Or ActivationFeuil Then
            t.Worksheet.Activate
            LngNbPanes = ActiveWindow.Panes.Count
            For LngPane = 1 To LngNbPanes
                With ActiveWindow.Panes(LngPane)
                    If Not Intersect(t, .VisibleRange) Is Nothing Then
                        Set QuelPane = ActiveWindow.Panes(LngPane)
                        Exit Function
                    End If
                End With
            Next
        End If
    End If
    Set QuelPane = Nothing
End Function
'---- <> Déterminer les coordonnées en pixels, par rapport à l'écran, du coin supérieur gauche d'une cellule Excel <>

Sub Damier()
Dim ligne As Integer, colonne As Integer
With Sheets("Feuil1")
    For ligne = 1 To 10 Step 2
        For colonne = 1 To 10 Step 2
            .Cells(ligne, colonne).Interior.Color = vbBlue
            .Cells(ligne, colonne + 1).Interior.Color = vbYellow
            .Cells(ligne + 1, colonne).Interior.Color = vbYellow
            .Cells(ligne + 1, colonne + 1).Interior.Color = vbBlue
        Next colonne
    Next ligne
End With
End Sub