Sheets('Feuil_suiv').Select 'sélectionne la feuille suivante
'sélectionne la première cellule non éditée de la colonne A
Range('A65536').End(xlUp).Offset(1, 0).Select
If TextBox1.Value = '' Then 'si la TextBox1 est vide
ActiveCell.Value = 'vide' 'écris 'Vide' (à adapter)
Else 'sinon
ActiveCell.Value = TextBox1.Value 'écris la valeur de la TextBox1
End If
'écris la valeur de la TextBox2 dans la cellule décalé de 1 vers la droite
ActiveCell.Offset(0, 1).Value = TextBox2.Value
'écris la valeur de la TextBox3 dans la cellule décalé de 2 vers la droite
ActiveCell.Offset(0, 2).Value = TextBox3.Value
'écris la valeur de la TextBox4 dans la cellule décalé de 3 vers la droite
ActiveCell.Offset(0, 3).Value = TextBox4.Value