BajanPaul secondaire ()
Faible lastRow aussi longtemps, I que longtemps
Application.ScreenUpdating = faux
lastRow = ActiveSheet.UsedRange.Rows.Count
Pour I = lastRow 6 à l'étape -1
Sinon IsNull (rangées (i). Texte) et IsNull (rangées (I - 1).Text) et pas IsNull (rangées (I - 2).Text) et _
Pas IsNull (rangées (I - 3).Text) et pas IsNull (rangées (I - 4).Text) et pas IsNull (rangées (I - 5).Text) puis
Gamme (rangées (I - 5), rangées (i)). Suppression
i = I - 5
Finir si
Après
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité
|