TE = Feuil3.ListObjects(1).Range.Value
ReDim TR(1 To 50, 1 To 26)
InitialiserMiseEnPage Feuil2.[B134], 39, 5
LE = 1
Do:
TR(1, 1) = UCase("Liste des outils")
LR = 6: For C = 1 To 4
TR(LR - 4, Choose(C, 1, 24, 25, 26)) = Choose(C, "Outil", "position", "taille", "couleur")
Next C
Do: LR = LR + 1
For C = 1 To 4
TR(LR - 4, Choose(C, 1, 24, 25, 26)) = TE(LE, C)
Next C
LE = LE + 1: Loop Until LE > UBound(TE, 1)
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
Rng(LTot - 3, 1).Value = "• Position : droit ou plat"
Rng(LTot - 2, 1).Value = "• Taille : en cm"
Rng(LTot - 1, 1).Value = "• couleur : couleur de l'objet"
Rng(LTot, 1).Value = "• couleur2 : couleur de l'objet"
Loop Until UBound(TE, 1)