Créer msgbox pour remplir cellules

Bonjour;

voila j'ai différente colonnes a remplir :

NOM ; PRENOM ; DATE DE NAISSANCE ; PERMIS(oui/non) ; SECTEUR

puis décomposé en différent secteur ex : Pontarlier, Vesoul

Ainsi j'aimerais créer une procédure vba qui demande nom prénom date de naissance etc et qui en fonction du secteur renseigné me le place dans les cellules correspondant au site renseigné. exemple si je rentre les données d'une personne de pontarlier j'aimerais qu'il me mettent les données entrées dans le tableau de Pontarlier.

Voila donc ce que j'ai réalisé :

Sub auxvac()
Dim nom As String
Dim prénom As String
Dim datenaiss As String
Dim du As String
Dim au As String
Dim permis As String
Dim secteur As String

Dim nom2 As String
Dim prénom2 As String
Dim datenaiss2 As String
Dim du2 As String
Dim au2 As String
Dim permis2 As String
Dim secteur2 As String

'Saisie du nom
nom = InputBox("Saisissez le nom de candidat (en majuscule)", "Saisie du nom")
'Saisie du nom1
prénom = InputBox("Saisissez le prénom du candidat", "Saisie du prénom")
'Saisie de la date de naissance
datenaiss = InputBox("Saissez la date de naissance du candidat (JJ/MM/AAAA)", "Saisie de la date de naissance")
'Saisie de la date de disponibilité du début
du = InputBox("Saisissez la date de début(JJ/MM)", "Date de début")
'Saisie de la date de disponibilté de fin
au = InputBox("Saisissez la date de fin(JJ/MM)", "Date de fin")
'Saisie du permis
permis = InputBox("A-t'il/elle le permis ?", "Saisie du permis")
'Saisie du secteur possible
secteur = InputBox("Saisissez le secteur possible", "Saisie du secteur")

rep = MsgBox(nom & prénom & datenaiss & du & au & permis & secteur, vbOKCancel)
If secteur = "Pontarlier" Then

Range("A4") = nom
Range("B4") = prénom
Range("C4") = datenaiss
Range("D4") = du
Range("E4") = au
Range("F4") = permis
Range("G4") = secteur

Else
Range("A11") = nom
Range("B11") = prénom
Range("C11") = datenaiss
Range("D11") = du
Range("E11") = au
Range("F11") = permis
Range("G11") = secteur
End If

'Saisie du nom2
nom2 = InputBox("Saisissez le nom de candidat (en majuscule)", "Saisie du nom")
'Saisie du nom1
prénom2 = InputBox("Saisissez le prénom du candidat", "Saisie du prénom")
'Saisie de la date de naissance2
datenaiss2 = InputBox("Saissez la date de naissance du candidat (JJ/MM/AAAA)", "Saisie de la date de naissance")
'Saisie de la date de disponibilité du début2
du2 = InputBox("Saisissez la date de début(JJ/MM)", "Date de début")
'Saisie de la date de disponibilté de fin2
au2 = InputBox("Saisissez la date de fin(JJ/MM)", "Date de fin")
'Saisie du permis2
permis2 = InputBox("A-t'il/elle le permis ?", "Saisie du permis")
'Saisie du secteur possible2
secteur2 = InputBox("Saisissez le secteur possible", "Saisie du secteur")

rep = MsgBox(nom2 & prénom2 & datenaiss2 & du2 & au2 & permis2 & secteur2, vbOKCancel)
If secteur2 = "Pontarlier" Then

Range("A5") = nom2
Range("B5") = prénom2
Range("C5") = datenaiss2
Range("D5") = du2
Range("E5") = au2
Range("F5") = permis2
Range("G5") = secteur2

Else
Range("A12") = nom2
Range("B12") = prénom2
Range("C12") = datenaiss2
Range("D12") = du2
Range("E12") = au2
Range("F12") = permis2
Range("G12") = secteur2

End If
End Sub

Mon problème étant que le nombre de candidat varie ainsi y a t-il une méthode plus simple plutot que de créer a chaque fois d'autre variable (nom,nom1,nom2)

et de faire pour qu'il rentre les données en dessous de celui déjà rentré ?

Voila ceci est un peu complexe

Je vous remercie d'avance pour vos solutions

Cordialement;

Bonjour

A voir

Merci beaucoup ça fonctionne super bien

Cordialement;

J'aurai une autre question a vous poser j'ai un soucis cela ne fonctionne pas avec 13 secteurs, y a t-il un nombre limité ?

Bonjour

Je ne comprends pas trop la question

Avant il y avait Pontarlier et Autre, et maintenant il y a ......?

et bien je n'ai donnée que cela car juste le principe me suffit et je voulais rendre les choses moins compliqué. Cependant j'ai également vesoul,besancon,montbéliard,morteau,valdahon,isle sur le doubs,luxeuil,belfort etc... bref j'en ai 13 donc j'ai rajouté par elseif et après type jai mis 13 mais lorsqu'il me demande le secteur est que je met MONTBELIARD ou un autre il me dit nombre incorrect

Bonjour

Tu aurais précisé que tu avais plusieurs tableaux la macro aurait été différente (fortes chances)

Je maintiens

Voici le modèle de la structure de mon fichier en pj

Bonsoir

Je n'ai pas modifié les autres InputBox

Bonsoir;

Merci beaucoup pour votre attention, cela m'aide beaucoup

Cordialement