Bonsoir,
J'aimerais modifier cette ligne de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim Cel As Range
    Dim Jour As Integer
    Dim Mois As Integer
    Dim Annee As Integer
 
    Set Cel = Target.End(xlUp)
 
    If Cel.Value = "Date" Then
 
        Annee = Year(Date)
De manière que celui-ci prenne en compte uniquement les cellules suivantes : C1:C46 et I1: i46

Merci de votre aide.