Si tu tiens à refaire de la même façon que la ligne L, ça donne ça:
VB:
Dim C as Long
'C=Colonne
C = Workbooks(2).Sheets("Ann 1 EN Serv LTV").Range("IV4").End(xltoLeft).Column + 1
With Workbooks(2).Sheets("Ann 1 EN Serv LTV")
.Cells(4,C).Value = ComboBSignau.Value
end with
mais tu peux aussi plus simplement faire en 1 seule instruction:
VB:
Workbooks(2).Sheets("Ann 1 EN Serv LTV").Range("IV4").End(xltoLeft)(1,2) = ComboBSignau.Value
IV4, ben c'est la colonne IV (la dernière de la feuille), ligne 4... de la même façon que F65536 c'est la colonne F, ligne 65536 (la dernière de la feuille)