Private Sub Worksheet_Activate()
Dim deb As Range, h&, c As Range
Set deb = [A2] '1ère cellule à remplir, à adapter éventuellement
With Sheets("Feuille 1").[A:A] 'nom de la feuille à adapter
h = Application.SumIf(.Cells, ">=1", .Cells) 'SOMME.SI
If h Then
Application.ScreenUpdating = False 'fige l'écran
deb = 1: deb.Resize(h).DataSeries 'numérotation
deb.Resize(h, 3).Borders.Weight = xlThin 'bordures
For Each c In .SpecialCells(xlCellTypeConstants, 1)
If c >= 1 Then deb(1, 2).Resize(c) = c(1, 2): _
deb(1, 3).Resize(c) = "=TEXT(RC[-2],""0000.\j\p\g"")": Set...