Bonsoir,

Dans une feuille déjà remplie, je voudrais pouvoir insérer un rang vierge (à l'aide d'une macro) avant chaque changement de série dans la colonne I.

Ci-joint un petit bout de fichier pour plus de compréhension.

Un gros merci d'avance pour votre aide.

http://www.cijoint.fr/cjlink.php?file=cj201103/cijatCeUBN.xls

Salut

essaie avec ça :

 
Sub LigneVide()
For i% = Range(Range("I1"), Range("I1").End(xlDown)).Count  To 2 Step -1
    If Cells(i, 9).Value <> Cells(i - 1, 9).Value Then _
        Rows(i).Insert Shift:=xlDown
Next
End Sub
 

Bonjour Bérylion,

Je te remercie infiniment pour ton aide. Ça fonctionne pile poil

Bonne journée !