Bonjour à tous et toutes

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim matertransfert As String
matertransfert = ListBox1.List(ListBox1.ListIndex)
Workbooks("NovoMaterBAse.xls").Close SaveChanges:=False
ActiveWindow.WindowState = xlMaximized
Unload UserForm1
Dim LaDerniere As String
LaDerniere = Range("B4:B65536").Find(N, lookat:=xlWhole).Row
Dim LaCase As String
LaCase = "B" & LaDerniere + 1
LaDerniere = Empty
Worksheets("Novomaterbase").Range(LaCase) = matertransfert
Mon souci est lorsque je reclique sur le bouton pour refaire la manip, ce que je copie du "NovoMaterBase" se repositionne au même endroit de la feuille redevene active

Je pense pourtant ré-initialiser la variable "LaDerniere" sur l'avant dernière ligne et refaire une recherche de la première ligne disponible dans la colonne B

Merci pour vos lumières

Daniel