les voici :
ReDim TS(1 To 1000, 1 To 5)
For LE = 2 To UBound(TE, 1)
If Not IsEmpty(TE(LE, 2)) Then
LS = LS + 1
TS(LS, 1) = TE(LE, 1)
TS(LS, 2) = TE(LE, 2): End If
InitialiserMiseEnPage Feuil2.[C131], 39, 5
LS = 1
Do: Nom = TS(LS, 1): TR(1, 1) = Nom
LR = 3: For C = 1 To 4
Next C
Do: LR = LR + 1
For C = 1 To 4
TR(LR, Choose(C, 1, 23, 24, 25)) = TS(LS, C + 1)
Next C
LS = LS + 1: Loop Until TS(LS, 1) <> Nom
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
ça serait déjà un bon début pour moi... effectivement j'ai beaucoup de lacunes en VBA
Je verrai plus tard pour les explications de mise en page
Merci beaucoup