Option Explicit
Sub ventilation()
Dim sh%, nlm&, cel As Range, dl1&, dl2&, lg1&, lg2&
nlm = Rows.Count: Application.ScreenUpdating = 0
dl1 = Worksheets("BD").Cells(nlm, 5).End(3).Row
For sh = 1 To 6 'pour les 6 feuilles du classeur
Worksheets(sh).Select: dl2 = Cells(nlm, 5).End(3).Row
For lg2 = dl2 To 8 Step -1 'de bas en haut
'Rows(lg2).Delete 'tu as oublié une condition ! car ça supprime toutes les lignes !!!
Next lg2 'normalement, ça devrait être, par exemple : supprimer la ligne si telle cellule
'de la ligne est vide ; ou si telle cellule de la ligne contient telle ou telle valeur.
For lg1 = 8 To dl1
Set cel = Worksheets("BD").Cells(lg1, 16)
If cel = ActiveSheet.Name Then
lg2 = Cells(nlm, 5).End(3).Row + 1: Cells(lg2, 1).Select
cel.EntireRow.Copy: ActiveSheet.Paste
End If
Next lg1
Next sh
Application.CutCopyMode = 0: Worksheets("BD").Select
End Sub