[excel-vba] ajouter ligne tableau excel

Bonjour,

je voudrais ajouter une ligne à un tableau excel pour cela il faut d'abord que je trouve la premiere ccellule non vide (creation d'une variable qui nous donne le numero decette ligne) puis l'utiliser pour remplir a la suite avec de nouvelles données.

voici le code de mon module

Sub premieresVides(k As Integer)
     Range("B2").End(xlDown).Select
     k = 2
         Do
           If IsEmpty(ActiveCell) Then
            ActiveCell.Offset(1, 0).Select
            k = k + 1
           End If
         Loop Until ActiveCell = ""
         k = k + 1
         
End Sub

lorsque je lance la macro suivante :

Sub Command_ADD_Click()

Dim k As Integer
Sheets("data base").Select
premieresVides (k)


'Sheets("Data base").Range("b" & k).Value = Sheets("ADD Data").combo_program.Value

End Sub

En fait le bouton est sur une page differente de celle où se trouve le tableau("data base")
je vois que ma derniere cellule non vide est activée mais je bug tout excel ...

quelqu'un connait 'til une solution ?

merci d'avance

Configuration: Windows 2000
Internet Explorer 6.0