Bonjour,
voici le code à mettre dans un module standard :
Sub Suppr_Lignes()
Dim Ligne As Long, Der_Ligne As Long
Der_Ligne = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp)
For Ligne = Der_Ligne To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("R" & Ligne & ":BL" & Ligne), "") = 47 Then Rows(Ligne).Delete
Next Ligne
End Sub
Pour créer le lien avec le [CTRL]+[h], il faut aller dans le menu affichage du ruban, puis macro, puis sélectionner "Suppr_Ligne" puis Option puis mettre un h dans la zone de saisie adéquate.
Le 47 du code correspond au nombre de colonne qui compose la zone à tester c'est à dire de R inclus à BL inclus, si un jour cette zone venait à être modifiée, il faudra également modifier le code.
La variable Der_Ligne recherche la première ligne plein en colonne A en partant du bas de la feuille, on obtient ainsi la dernière ligne plein du tableau.
Attention, il n'y a pas de demande de confirmation et suite à un code VBA pas de "UNDO" possible !
Donc faites une sauvegarde de votre fichier avant de faire un quelconque test !
@ bientôt
LouReeD