Bonjour
Code vba à tester
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Réinitialiser la couleur de toutes les cellules
Cells.Interior.ColorIndex = xlNone
End Sub
Private Sub Worksheet_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim cell As Range
Set cell = Me.Cells(Application.ActiveWindow.PointToCell(x, y))
' Changer la couleur de la cellule survolée
If Not cell Is Nothing Then
cell.Interior.Color = RGB(255, 255, 0) ' Jaune
End If
End Sub
Si cela convient passes le sujet en résolu
Crdlt