Private Sub Image1_Click()
Dim ctrl As Control 'déclare la variable crtl (ConTRôLe)
For Each ctrl In Me.Controls 'boucle sur tous les contrôles de l'UserForm
'si le tag du contrôle n'est pas vide, place la valeur du contrôle dans la cellule ligne plv, colonne tag du contrôle
If ctrl.Tag <> "" Then Sheets("Feuil1").Cells(plv, CInt(ctrl.Tag)).Value = ctrl.Value
Next ctrl 'prochain contrôle de la boucle
With Sheets("Feuil1")
.Cells(plv, 10).Value = Date 'place la date en colonne J
.Cells(plv, 3).Value = Application.WorksheetFunction.Max(.Range("A8:A" & plv)) + 1
End With
Unload Me 'vide et ferme l'UserForm
End Sub