Bonjour,
A tester
ALT F11 pour ouvrir l'éditeur VBE - Voir module dans Feuil1 (Feuil1).
Sélectionne une cellule du tableau...
A te relire
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim numCol As Integer, _
numSem As Byte, _
annee As Integer, _
derLig As Long, derCol As Integer, rng As Range
derCol = Cells(2, Columns.Count).End(xlToLeft).Column
derLig = Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Range(Cells(4, 2), Cells(derLig, derCol))
If Not Application.Intersect(rng, Target) Is Nothing Then
If Target.Count > 1 Then Exit Sub
numCol = Target.Column
Select Case numCol
Case Is <= 54
annee = 2012
Case Is <= 105
annee = 2013
Case Else
annee = 2014 ' à adapter
End Select
numSem = Cells(2, numCol)
MsgBox Lundi(Cells(2, numCol), annee), 64
End If
Set rng = Nothing
End Sub