Recherche date automatique avec deplacment

Bonjour,

J'ai un calendrier annuel sur excel, avec chaque jour lier a 5 item :


Je souhaiterais faire un bouton macro qui permet d'afficher le groupe de colonne lié a la date du jours juste après les colonnes figées (les 3 premières colonnes seront figées).

En gros les colonnes D,E,F,G,H correspondent a lundi 1 janvier 2018, elles apparaissent en 4,5,6,7,8 position dans le tableau, je suis le 25 mars j'appui sur le bouton, les 5 colonnes correspondant au 25 mars apparaissent en position 4,5,6,7,8 visuellement (la barre de défilement se déplace au bon endroit).

C'est possible ? Si oui une petite piste ^^

J'ai tenté ca :

Sub RechercheDateFind2()
  d = InputBox("Date? jj/mm/aa")
  If d <> "" Then
    On Error Resume Next
    [A1:BRH1].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"), LookIn:=xlValues).Select
    If Err <> 0 Then MsgBox "Inconnu"
  End If
End Sub

Mais j'ai un soucis car mes dates sont fusionner avec 5 colonnes.
https://www.cjoint.com/c/GLtn1dTZzP5

Merci à vous !