XL 2019 Cellules qui s'affichent

=SI(E3="";"";RECHERCHEV(E3;Feuil1!A1:C10;2;FAUX))

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1) = "" Then Exit Sub
Dim P As Range, c As Range
Set P = [E3,E4,I4,F5,C6,H6,C7,D8,I8,A10:A19,C20,A22:A24,C27,H27,C29,H29,C31,H31]
Set c = Intersect(Target(1), P)
If Not c Is Nothing Then Set c = P.Find("", c(1), xlValues, , xlByRows)
If Not c Is Nothing Then c.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target(1).Address = "$C$6" Then Target(1) = Calendar.ShowX(Target(1), 2, 0)
End Sub