VBA: macro-planning du personnel par année

Bonjour la communauté,

J'ai un petit problème...
J'ai un macro-planning de la l'activité de mon personnel par personne qui se fait automatiquement. (Cette macro avait déjà été gentiment conçu par une personne de la communauté.)
Cependant avec la nouvelle année je rencontre un petit soucis...
Le planning n'est disponible que sur une année, donc les dates se chevauchent.

Je m'explique.
Le planning marche par semaine, si membre est occupé sur une semaine la case correspondante se colore en jaune, si il est occupé sur 2 choses en même temps la case de la semaine s'allume en orange.
A noter que ça me met automatiquement un commentaire pour savoir quel mission les occupe quand je passe ma souris sur une case.

Bref, avec le passage en 2017, si un membre était occupé la 1ere semaine de janvier 2016, il qu'il l'est également la 1ere semaine de janvier 2017, la case s'affiche en orange, sauf que maintenant le planning de 2016 m'importe peu.

Serait-il possible d’insérer dans la macro une partie ou je puisse choisir l'année que je souhaite consulter?

Je ne peux vous envoyer le document via cjoint car mon entreprise le bloque...

La macro posant problème étant celle-ci (mais je ne la comprend pas...):

Sub PlanningAuditeur()
Application.ScreenUpdating = False
Set F1 = Sheets("macro-planning")
Set F2 = Sheets("données")
F1.Select
DerColF1 = F1.[B2].End(xlToRight).Column
DerLigF1 = F1.[A10000].End(xlUp).Row
DerColF2 = F2.[B2].End(xlToRight).Column
DerLigF2 = F2.[A4].End(xlDown).Row
Range(Cells(4, 2), Cells(DerLigF1, DerColF1)).Clear
ReDim Auditeur(DerColF2 - 1 / 2) As String
ReDim Deb(DerLigF2, DerColF2) As String
ReDim Fin(DerLigF2, DerColF2) As String
ReDim NbSem(DerLigF2, DerColF2) As String
ReDim Audit(DerLigF2, DerColF2) As String
For c = 2 To DerColF2 Step 2
Auditeur(c / 2) = F2.Cells(1, c)
For l = 4 To DerLigF2
If F2.Cells(l, c) <> 0 Then
Deb(l, c) = F2.Cells(l, c)
Fin(l, c) = F2.Cells(l, c + 1)
NbSem(l, c) = Fin(l, c) - Deb(l, c) + 1
Audit(l, c) = F2.Cells(l, 1)
Set a = F1.Columns("A").Find(Auditeur(c / 2), LookIn:=xlValues)
a.Select
For i = CInt(Deb(l, c)) To CInt(Fin(l, c))
If F1.Cells(ActiveCell.Row, i + 1) = "" Then
F1.Cells(ActiveCell.Row, i + 1) = Audit(l, c)
F1.Cells(ActiveCell.Row, i + 1).Interior.ColorIndex = 6
F1.Cells(ActiveCell.Row, i + 1).AddComment
F1.Cells(ActiveCell.Row, i + 1).Comment.Visible = False
F1.Cells(ActiveCell.Row, i + 1).Comment.Text Text:=Audit(l, c)
Else: F1.Cells(ActiveCell.Row, i + 1).Interior.ColorIndex = 3
F1.Cells(ActiveCell.Row, i + 1) = F1.Cells(ActiveCell.Row, i + 1) & Chr(10) & Audit(l, c)
F1.Cells(ActiveCell.Row, i + 1).Comment.Text Text:=F1.Cells(ActiveCell.Row, i + 1).Comment.Text & Chr(10) & Audit(l, c)
End If
F1.Cells(ActiveCell.Row, i + 1).Comment.Shape.Height = 312#
F1.Cells(ActiveCell.Row, i + 1).Comment.Shape.Width = 425.25
F1.Cells(ActiveCell.Row, i + 1).Comment.Shape.TextFrame.Characters.Font.Size = 14
F1.Cells(ActiveCell.Row, i + 1).Comment.Shape.OLEFormat.Object.Font.FontStyle = "Bold"
Next i
End If
Next l
Next c
Range(Cells(1, 1), Cells(DerLigF1 + 1, DerColF1 + 1)).Borders.LineStyle = xlContinuous
Range(Cells(4, 2), Cells(DerLigF1, DerColF1)).ClearContents
End Sub



EN VOUS REMERCIANT !!!!

Bonne année à tous !!!!