Lignes en couleurs changeantes

Bonjour,
Comme vous le verrez ces codes ne fonctionnent pas correctement pour une ou plusieurs raison qui m'échappent.

Je voudrai obtenir une ligne sur deux en vert clair.
de la colonne A2 à la colonne AF pour en faciliter la lecture ou l'impression.
ou
Une ligne jaune seulement si cliqué en colonne A ou B</bold
<gras> Ici, il ne faut plus que une ligne sur deux en vert apparaissent.
si possible, également de la colonne A2 à la colonne AF pour la ligne jaune
'Tous clics, colonne 3 et suivantes dans les autres cellules sont sans effet mais permettent l'écriture


Je compte sur votre gentillesse bien connue et vos profondes connaissances que vous mettez à nous rendre de si précieux services.
Je n'oublie pas non plus tout le temps que passez.
En vous en remerciant.

Voici les code que j'utilise :

'*****Codes sur la feuille Base*****
' Mise en couleur une ligne sur deux en vert clair - "le Total  nombre de ligne  est variable."
Private Sub Worksheet_Activate()     'MFC - Code actif à l'activation de l'onglet
'ici erreur définie par l'applicaion ou par l'objet
    Range("A2:AG").Select       'ici erreur définie par l'application ou par l'objet
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD(LIGNE();2)=0"
    Selection.FormatConditions(1).Interior.ColorIndex = 35 '(vert clair)
    Range("A2").Select    'comment supprimer ce .Select
End Sub

'Colorer ligne active en jaune si clic en colonne "A" ou "B"
'Tous clics, colonne 3 et suivantes dans les autres cellules sont sans effet mais
' permettent l'écriture
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Selection.FormatConditions.Delete   'annulation de la Mfc
     If Target.Cells.Column > 2 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36  '(jaune clair)
End Sub