Bonjour à tous,

Dans ce code, après ouverture de la feuille, je suis censé être positionné sur la première cellule vide de la colonne A, hors ça ne fonctionne pas.
Pourriez-vous m'indiquer pourquoi s'il vous plait ?
Je vous en remercie par avance

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
 
Private Sub Bt1_Click()
Dim DLig As Long
'Si je clique sur le bouton "Ville"
'La feuille "Arch_Ville" s'affiche et s'ouvre
'Le curseur est placé sur la cellule vide après la dernière ligne saisie en colonne A
Application.ScreenUpdating = False
 
    Sheets("Arch_Ville").Visible = True
    Sheets("Arch_Ville").Activate
 
    With ActiveSheet
    DLig = Range("A1").End(xlDown).Row + 1
    End With
 
'La feuille "Vide" se ferme
'Le formulaire de choix se ferme
    Sheets("Vide").Visible = False
 
    Unload Me
 
Application.ScreenUpdating = True
 
End Sub