Salut,
EN relisant mon post d'hier soir, j'ai fais une grosse boulette.
T(1 ,to ubound(t,2) ="enfant" 'ou range("D654").value
T(2 ,to ubound(t,2) ="Pierre" 'ou range("D654").value
T(3 ,to ubound(t,2) ="25 ans" 'ou range("D654").value
à remplacer par
T(1 ,ubound(t,2) ="enfant" 'ou range("D654").value
T(2 ,ubound(t,2) ="Pierre" 'ou range("D654").value
T(3 ,ubound(t,2) ="25 ans" 'ou range("D654").value
A+++