comptabiliser les cellules sup à aujourdhui

  With Sheets("RP & RPC 12")
    .Range("J4:J" & .[A65000].End(xlUp).Row).Name = "echeance"
    Me.TB_29.Value = Evaluate("=COUNTIF(echeance,""<""&TODAY())")

Private Sub Bn_Afficher_Click()
  Dim Lig As Long, VPathFic As String
  ' La ligne = 3 (ligne de titre) + ListIndex + 3 (car listindex commence à 0)
  Lig = 3 + Me.ComboBox1.ListIndex + 3
  With Sheets("RP & RPC 12")

    Me.TB_1 = .Range("C" & Lig)
    Me.TB_2 = .Range("E" & Lig)
    Me.TB_3 = .Range("G" & Lig)
    Me.TB_4 = .Range("I" & Lig)
    Me.TB_5 = .Range("L" & Lig)
    Me.TB_6 = .Range("N" & Lig)
    Me.TB_7 = .Range("Q" & Lig)
    Me.TB_8 = .Range("T" & Lig)
    Me.TB_9 = .Range("V" & Lig)
    Me.TB_10 = .Range("X" & Lig)
    Me.TB_11 = .Range("Z" & Lig)
    Me.TB_12 = .Range("AB" & Lig)
    Me.TB_13 = .Range("AD" & Lig)
    Me.TB_14 = .Range("AF" & Lig)
    Me.TB_15 = .Range("AH" & Lig)
    Me.TB_16 = .Range("AJ" & Lig)
    Me.TB_17 = .Range("AL" & Lig)
    Me.TB_18 = .Range("AN" & Lig)
    Me.TB_19 = .Range("AP" & Lig)
    Me.TB_20 = .Range("AR" & Lig)
    Me.TB_21 = .Range("AS" & Lig)
    Me.TB_22 = .Range("AU" & Lig)
    Me.TB_23 = .Range("AW" & Lig)
    Me.TB_24 = .Range("AY" & Lig)
    Me.TB_25 = .Range("AZ" & Lig)
    Me.TB_26 = .Range("J" & Lig)
    Me.TB_27 = .Range("O" & Lig)
    Me.TB_28 = .Range("R" & Lig)
    Compteur = 0
      For i = 1 To 28 'à 25 si tu ne prend pas en compte TB_26, TB_27 et TB_28
        Dat = Me.Controls("TB_" & i)
            If Dat <> "" Then Dat = CDate(Dat)
                If Dat <= Date Then
                    Compteur = Compteur + 1
                    Me.TB_29 = Compteur
                End If
        Next
End With
End Sub