Bonjour!
Je souhaiterais trouver le bon code VBA pour pouvoir effacer la derniere ligne d'un tableau d'archivage. Voila ce que j'ai fait pr le moment:

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
Private Sub CommandButton1_Click()
 
UserFormModiferCommande.Hide
UserFormModifierCommandeOui.Show
 
Application.ScreenUpdating = False
 
Sheets("Base").Select
Range("A68").Select
 
Do
    If ActiveCell.Value = "" Then
    ActiveCell.Offset(-1, 0).Select
    Selection.Clear.Contents
 
End If
 
Loop Until ActiveCell.Value = ""
 
Application.ScreenUpdating = True
 
 
End Sub
Si quelqu'un pouvait vite répondre.
merci