Bonsoir,
En fait, tu dois d'abord te positionner en cellule A1:
Range("A1").Select
Ensuite, tu passes à la prochaine ligne en utilisant le code correspondant au CTRL flèche bas:
Range(Selection, Selection.End(xlDown)).Select
Tu passes ensuite à la ligne suivante (où tu veux écrire ta première valeur):
Range("A" & ActiveCell.Row + 1).Formula = listbox.value
Et à partir de cette même ligne, tu fais un décalage (offset) vers la droite pour aller y mettre le contenu de ta textbox:
Range("A" & ActiveCell.Row + 1).Offset(0,1).Formula = textbox.value
En résumé, voici le code:
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
With Range("A" & ActiveCell.Row + 1)
.Formula = textbox.value
.Offset(0,1).Formula = textbox.value
End With
Je pense que ceci devrait te satisfaire...
Bien à toi,
S.