Bonjour, je m'initie au vba et je voudrais faire des saisies dans une base de donnée.
j'utilise un script fourni dans un livre mais il ne fonctionne pas parfaitement.
tout d'abord dans mon classeur, j'ai créé un tableau nom - prénom avec la ligne de titre en gras pour qu'excel le reconnaisse en temps que base de données

puis dans visual basic, j'ai inséré le script suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub SaisieBD()
On Error Resume Next
Dim NbEntrées As Integer
Dim DernierNom As String
Dim i As Integer
NbEntrées = InputBox("COMBIEN DE PERSONNES DESIREZ VOUS AJOUTER ?", _
"Base de données de chantal")
ReDim Vnom(NbEntrées, 2) As String
ReDim VPrénom(NbEntrées, 2) As String
For i = 1 To NbEntrées
    Vnom(i, 1) = InputBox("Entrez le nom n° " & i, "Base de données de chantal")
VPrénom(i, 2) = InputBox("Entrez le prénom n°" & i, _
"Base de données de chantal")
Next
' recherche de la position du dernier nom saisi
DernierNom = Range("a6").End(xlDown).Address
'positionnement sur le dernier nom de la liste
Range(DernierNom).Select
' Entrée des données dans le tableau
For i = 1 To NbEntrées
    ActiveCell.Offset(1, 0).Value = Vnom(i, 1)
    ActiveCell.Offset(1, 1).Value = VPrénom(i, 2)
    ActiveCell.Offset(1, 0).Select
Next
End Sub
Tout fonctionne jusqu'au moment d'entrer les noms, je me retrouve à la dernière cellule du classeur dans la colonne A 65536 !

Je n'arrive pas à déterminer ce qui ne va pas, je ne m'y connais pas assez... pouvez vous me donner un coup de main ? merci d'avance