Macro coloration / sélection sur une colonne de petite taille

Bonjour,

J'ai écrit cette macro :

Application.EnableEvents = False
For i = 1 To 2

Dim c As Range
Dim rec As Date
rec = Cells(23 + i, 5).Value

With Worksheets("Congés").Range("jour") 'permet la selection de la colonne d'analyse correspondante au choix de l'utilisateur
Set c = .Find(rec, LookIn:=xlValues)
If Not c Is Nothing Then
c.Offset(3, 0).Interior.Color = RGB(255, 0, 0)
Else
End If
End With

Set c = Nothing
Next i

Qui me permet de colorer des cases en fonction de la présence de date etc.

Ma question : je me rends compte qu'avec une colonne de taille 28 pixels cela ne fonctionne pas, mais si j'agrandis la colonne la macro fonctionne. (Cela est vrai pour la coloration et la selection).

A quoi cela peut être du?

Merci