renvoi d'infos depuis formulaire pour constitution d'une base

Sub envoi()
'Définition des variables, lig sera un numéro de ligne
' x et y seront du texte
Dim lig As Long, x As String, y As String
'Calcul de la première ligne vide de l'onglet Feuil2
'Rows.count compte le nombre total de lignes de la feuille
'Cells(Rows.count,1) même chose que ci dessus mais placé colonne 1
'.end(xlUp) permet de remonter jusqu'à la dernière ligne remplie
'même effet que les touches CTRL et flèche haute
'. row indique le numéro de la ligne trouvée
'+ 1 pour se positionner sur la ligne du dessous qui est la première ligne vide
lig = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1
'Si la cellule B1 de la feuille 1 est égale à 1
If Sheets("Feuil1").Range("B1") = 1 Then
'alors les libellés "Oui " et "non" sont affectés aux variables x et y
x = "Oui"
y = "Non"
Else
'si non, les valeurs de x et y sont inversées:
x = "Non"
y = "Oui"
End If
'Indique que la cellule (première ligne vide, colonne 1) de l'onglet Feuil2
' est rensigné avec le libellé de x
Sheets("Feuil2").Cells(lig, 1) = x
'même chose pour la cellule d'à coté avec le libellé de y
Sheets("Feuil2").Cells(lig, 2) = y
End Sub