Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
Dim LI As Integer 'déclare la variable LI (Ligne)
LI = Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la ligne LI
For Each CTRL In Me.Controls 'boucle sur tous les contrôle de l'UserForm en cours
If CTRL.Tag <> "" Then 'condition : si la propriété [Tag] du contrôle n'est pas vide
Cells(LI, CTRL.Tag).Value = CTRL.Value 'renvoie la valeur du contrôle vers la cellule ligne = LI colonne = propriété [Tag] du contrôle
End If 'fin de la condition
Next CTRL 'prochaine contrôle de la boucle