Private Sub CommandButton1_Click()
Dim ColFin As Long
ColFin = 0
Do
If Sheets("ETAT").Range("E6").Offset(0, ColFin) <> "" Then ColFin = ColFin + 1
Loop Until Sheets("ETAT").Range("E6").Offset(0, ColFin) = ""
Sheets("ETAT").Range("E6").Offset(0, ColFin) = TextBox2.Text
'Suite des affectations
End Sub