Formulaire de Saisie automatique

Bonjour,

J'aimerai effectué un formulaire de saisie où je rentrerai chaque chiffre d'affaire de différents magasins. Est-il possible qu'à l'ouverture du formulaire, j'ai automatiquement les 3 magasins ( Magasin A, Magasin B, Magasin C) qui s'affiche et que je puisse saisir les montants à droite ( voir fichier ci-joint). Puis lors de la validation, 3 nouvelles lignes se rajoutent avec le nom du magasin et son chiffre d'affaire.

J'ai commencé le code VBA mais je bute.

PS : les noms des magasins figurent seulement en libellé dans le fichier joint et non automatiquement

Bonjour

Voici une méthode l'enregistrement ce passe ici dans le dossier en cours,

et je ne ferme pas les fichiers f.close

Sub deb()

secteur = 0

For Each i In Sheets

If sect(i) = secteur Then

i.Copy (f.Sheets(f.Sheets.Count))

Else

secteur = sect(i)

Set f = Workbooks.Add

f.SaveAs sect(i) & ".xls"

End If

Next

End Sub

Function sect(i)

sect = Left(i.Name, 2)

End Function