Salut Moreno,
Salut Jean-Eric
Jean-Eric a opté pour la colonne [G], moi pour la [L]...
A toi de savoir et adapter le code au choix avec la colonne dont tu es CERTAIN à 100% que les cellules sont TOUJOURS remplies d'une donnée.
Dans cette version, un double-clic en [L3] commande la suppression des lignes vides sur base des cellules vides trouvées en [L5:L...].
Code à coller tel quel dans le module VBA de la feuille à traiter.
- ALT-F11 pour entrer dans l'éditeur VBA ;
- double-clic sur le nom de la feuille à gauche ;
- coller le code à droite ;
- enregistrer en XLSM.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, Range("L3")) Is Nothing Then
Cancel = True
Range("L5:L" & Range("L" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End If
Application.ScreenUpdating = False
On Error GoTo 0
'
End Sub
A+