Simplifier un code

Bonjour,

J'ai un Userform avec une combobox et j'ai un code qui permet de sélectionner une cellule de la couleur rouge avec ma combobox, et lorsque je ferme mon Userform à l'aide de bouton quitter, les cellules de la colonne "A" redevienne de deux couleurs comme a l'ouverture de l'Userform.

Ma question peut simplifier mon code ci-dessous en sachant qu'il est prévu de la ligne "A4:A100"

Mon code de fermeture:

Private Sub Quitter_Click()

     Range("A5:A100").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A5,A7,A9,A11,A13,A15,A17,A19,A21,A23,A25,A27,A29").Select 'ect.... jusqu'à 100
    Range("A29").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
    Range("M3").Select

Unload Me
End Sub

D'avance merci à qui pourra m'aider.

Cordialement

Max

Bonjour à tous,

Bonjour Max,

Peut-être tout simplement comme ceci ?

Private Sub Quitter_Click()
For i = 5 To 100
  With Range("A" & i).Interior
    .Pattern = IIf(i Mod 2 = 0, xlNone, xlSolid)
    .TintAndShade = IIf(i Mod 2 = 0, 0, -0.149998474074526)
    .PatternTintAndShade = 0
  End With
Next
Range("M3").Select
Unload Me
End Sub

Cordialement.

Bonjour Papou-Net

Merci pour le code, Mais je ne comprend un truc. Si je fini par la dernière ligne non vide de ma combopbox j'ai bien la cellule en rouge et lorsque je ferme mon Userform pas de problème tous revient comme avant, si je fini avec ex: le N°3 la cellule 3 reste en rouge?

@+

Max