Ignorer une ligne par rapport à sa couleure

Fermé
ssboo Messages postés 17 Date d'inscription lundi 25 mars 2013 Statut Membre Dernière intervention 2 juillet 2013 - 27 mars 2013 à 09:18
Bonjour,

J'essaye de completer une macro pour rajoutter des lignes. Le soucis que je rencontre c'est que j'ai besoin d'inserer dedans des lignes de code pour que quand la couleur de la ligne est verte ou bien jaune elle n'applique pas la macro dessus et parsuite l'ignore.


https://www.cjoint.com/c/CCApdLIta1v ce lien est un extrait de mon fichier pour tester le code dessus.

Voilà le code que j'utilise pour rajoutter des lignes:

Sub Insertions()
Dim lig As Long
Range("A4").Select
Reprise:
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell) = 0 Then Exit Sub
If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Rows("1:1").EntireRow.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
End If
GoTo Reprise
End Sub

Aidez moi SVP
A voir également: