Il me semble que tu te compliques...
La feuille étant SEM suivi du numéro de semaine. On la retrouve à partir du jour férié cherché.
La colonne étant, si la feuille est logiquement consituée indiqué par le jour en commençant du lundi auquel s'ajoute le nombre de colonnes précédant le lundi !
Soit une petite macro de test pour afficher feuille et indication colonne:
Sub PlacerFériés(jf, a As Integer)
Dim dref, s%, j%
dref = DateSerial(a, 1, 3)
dref = dref - Weekday(dref) + 2
If jf >= dref Then
s = Int((jf - dref) / 7) + 1
Else
Exit Sub
End If
j = IIf(Weekday(jf) = 1, 7, Weekday(jf) - 1)
MsgBox "feuille: SEM" & s & Chr(10) & "colonne: nb de colonnes précédant le lundi" _
& " + " & j
End Sub
Sub test()
Dim a%, jf
a = 2016
jf = DateSerial(a, 7, 14) 'à remplacer...
PlacerFériés jf, a
End Sub
Macro lancée à partir d'une autre pour lui fournir les arguments (on peut mettre n'importe quelle date, elle la trouvera dans les mêmes conditions...), elle affiche la localisation dans un message.
Cordialement.