[RESOLU] Transfert valeur textbox dans tableau ligne après ligne

'Remplir colonne commentaires
'Sheets("Autres").Select

'Range("B2") = TextBox_autres

  i=3
  do while (i<=27) and (cells(1,i)<>""
    i=i+1
  loop

[COLOR=blue]Sub[/COLOR] Ajout()
[COLOR=blue]With[/COLOR] Sheets("feuil1")
    .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = TextBox_autres
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

[COLOR=blue]Sub[/COLOR] Ajout2()
[COLOR=blue]With[/COLOR] Sheets("feuil1")
    .Cells(1, .Cells(1, Application.Columns.Count).End(xlToLeft).Column + 1) = TextBox_autres
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

With Sheets("BOS_Autres")
    .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = TextBox_date
    Cells.Value = Format(Date, "dd/mm/yyyy")
End With

[COLOR=blue]Sub[/COLOR] Ajout3()
[COLOR=blue]Dim[/COLOR] Var [COLOR=blue]As Date[/COLOR]
Var = TextBox_date
Var = Format(Var, "dd/mm/yyyy")
[COLOR=blue]With[/COLOR] Sheets("BOS_Autres").Cells(Sheets("BOS_Autres").Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
    .NumberFormat = "dd/mm/yyyy"
    .Value = Var
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Dim Var As Date
Var = TextBox_date
Var = Format([COLOR="Red"]Date[/COLOR], "dd/mm/yyyy")
With Sheets("BOS_Autres").Cells(Sheets("BOS_Autres").Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
    .NumberFormat = "dd/mm/yyyy"
    .Value = Var
End With

Var = Format([COLOR="Red"]Var[/COLOR], "dd/mm/yyyy")

Var = Format([COLOR="Red"]Date[/COLOR], "dd/mm/yyyy")