Private Sub CommandButton1_Click()
Dim plv As Integer 'déclare la variable plv (Première Ligne Vide)
Dim ctrl As Control 'déclare la variable ctrl (ConTRôLe)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
plv = .Cells(Application.Rows.Count, 1).End(xlUp).Row + 1 'définit la première ligne vide de la colonne 1 (=A)
For Each ctrl In Me.Controls 'boucle sur tous les contrôles de l'UserForm
'si la prorpriété "Tag" n'est pas vide, place la valeur du contrôle dans la
'cellule ligne "plv", colonne "tag" du contrôle
If ctrl.Tag <> "" Then .Range(ctrl.Tag & plv).Value = ctrl.Value
Next ctrl 'prochain contrôle de la boucle
End With 'fin de la prise en compte de l'onglet "Feuil1"
Unload Me 'vide et ferme l'UserForm
End Sub