Bonsoir,
un essai pour tester :
Sub test()
Dim Pl As Range, s, T(), i&, j&, L&
Set Pl = Range("A3").CurrentRegion
ReDim T(1 To Pl.Rows.Count)
Range("E3").CurrentRegion.ClearContents
'calcul du nombre de lignes du tableau final
For i = LBound(T) To UBound(T)
T(i) = Len(Pl(i...