re paritec et le forum,
Super, je te remercie, mais tu as enlevé les lignes verticales aussi mais ce n'est pas grave, tu vas dire que je suis enmer...t,
Et concernant le renvoie dans L1, je sais qu'il s'agit de ce boue de code :
If y = 1 Then Exit Sub
If y = 2 Then
ReDim cc(1 To 1, 1 To UBound(aa, 2) - 2)
For a = 1 To UBound(cc, 2)
cc(1, a) = bb(a, 1)
Next a
L1.List = cc
Else
L1.List = Application.Transpose(bb)
End If
End If
Mais je ne comprends pas tes formules peut, tu me mettre sur la voie pour ne plus faire apparaître les deux dernière colonnes stp, merci. après ça j’arrête mais je te promet rien !!! car on ne sais jamais !
PS: je suis quelqu'un de parole!!!