Macro Excel suppression 9 lignes selon 1 cond

Bonjour,


J'ai fait appel à vous en début de semaine pour réaliser le code suivant :


Sub Macro4()

Const plage = "A8:BC16"
Dim li As Long, nbli As Long
nbli = Range(plage).Rows.Count
Selection.Offset(0, 0).Select
For li = 1 To nbli
ActiveCell.EntireRow.Insert
Next li
Range(plage).Copy
ActiveSheet.Paste

plage2 = "J12:U12"
Range(plage2).Copy
Selection.Offset(13, 9).Select
ActiveSheet.Paste


End Sub


Ce code fonctionne très bien, mais j'ai une nouvelle demande :

- quel serait le code pour avoir l'effet inverse, c'est-à-dire supprimer les 9 lignes (décalage vers le haut) et recopie de la plage J12:U12 ?


- insérer une condition du type s'il y a "XXX" dans la cellule (même ligne que la cellule pointée) de la colonne AK, il ne faut pas que la macro fonctionne que se soit pour le code plus haut ou bien pour le code de suppression,

merci pour votre aide :)


_gfv