Bonjour à tous

Voila en ci-dessous j'ai une macro qui fonctionne bien mais à mon avis elle pourrai être simplifier afin d'avoir moins de lignes dans mon code donc ma question existe t-il un moyen de résumer le code ci-dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Par_Mois_ComboBox_Click()
 
'Colorer les totaux positifs en couleur rouge de la colonne 14
  With Sheets("Récap-Codes-Divers")
'Boucle sur les lignes
  For i = 4 To 13
    'Boucle sur les colonnes
    For j = 14 To 14
        'Test de la cellule
        Cells(i, j).Select
        If Cells(i, j).Value > 0 Then
            'Affectation de la couleur rouge
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 3
        Else
            'Affectation de la couleur noir
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 1
        'End If
        End If
      Next
    Next
'Et colorer les totaux positifs en couleur rouge de la colonne 19
'Boucle sur les lignes
  For i = 4 To 13
    'Boucle sur les colonnes
    For j = 20 To 20
        'Test de la cellule
        Cells(i, j).Select
        If Cells(i, j).Value > 0 Then
            'Affectation de la couleur rouge
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 3
        Else
            'Affectation de la couleur noir
            Selection.Interior.Color = RGB(234, 241, 221)
            Selection.Font.ColorIndex = 1
        'End If
        End If
      Next
    Next
  End With
End Sub
Merci à vous tous

Cordialement