recherche cell avec coordonnées (X,Y)

Private Sub Worksheet_Activate()
       Range("G5").Value = ""
       Range("G3").Value = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lig, col, compteur As Integer
    If Not Intersect(Target, Range("G3:G5")) Is Nothing Then
       lig = Range("G5").Value
       col = Range("G3").Value
        
       If lig = Int(lig) And lig > 0 And lig <= 4 And col = Int(col) And col > 0 And col <= 4 Then
          Cells(lig, col).Select
          For compteur = 0 To 3
                 With Selection.Interior
                     .ColorIndex = 4
                     .Pattern = xlSolid
                 End With
                 Application.Wait Now + TimeValue("00:00:01")
                 
                 Selection.Interior.ColorIndex = xlNone
                 Application.Wait Now + TimeValue("00:00:01")
          Next compteur
       Range("G5").Value = ""
       Range("G3").Value = ""
       End If
     End If
End Sub