Question pour le forum

Private Sub CommandButton4_Click() 'Bouton "VALIDATION FACTURES IMPAYEES"

'Je recherche la dernière ligne de la colonne "A" (NomClient)
Lig = CLng(NomClient.List(NomClient.ListIndex, (NomClient.ColumnCount - 1)))

 'Je Selectionne la feuille du classeur consernée
With Sheets("RECAP IMPAYER")
   'Je rentre les données dans le tableau
  'Pour les N° de Chèques où de virement
    .Range("K" & Lig).Value = NCheque.Value
 'Pour le Montant des Chéques où de virement
    .Range("J" & Lig).Value = Montant.Value
 'Je mets au format les TextBox
     Montant.Value = Format(Montant, "#,##0.00 €")
 'Pour la date des Chéques où de virement
    .Range("L" & Lig).Value = Date1.Value
 'Pour la date de la saisies des Chéques où des virements
    .Range("M" & Lig).Value = DateSaisie.Value
 'Pour la Banque
    .Range("N" & Lig).Value = Banque.Value
'Pour le N° de bordereau
    .Range("O" & Lig).Value = Nbordereau.Value
'Je quitte le feuille sélectionnée
End With

'Je rentre le paiement des factures de la feuille "RECAP IMPAYER"
'Pour la combo Facture
   With NFacture1
    [COLOR="Red"][B]If .Value = "" Then Exit Sub[/B][/COLOR]
'Balayer tous les items
   For y = 0 To .ListCount - 1
'si l'item est "Payer"
'alors mettre couleur bleue dans la bonne colonne uniquement
   If NFacture1.List(y, 2) = "Payer" Then
       Sheets("RECAP IMPAYER").Range("C" & Lig).Offset(, y * 14).Font.ColorIndex = 5 'Bleu
   Else
       Sheets("RECAP IMPAYER").Range("C" & Lig).Offset(, y * 14).Font.ColorIndex = 3 'Rouge
     End If
  Next y
 End With
'Pour la combo AnnexeFacture1
 With AnFacture1
   [COLOR="Red"][B]If .Value = "" Then Exit Sub[/B][/COLOR]
 'Balayer tous les items
   For y = 0 To .ListCount - 1
'si l'item est "Payer"
'alors mettre couleur bleue dans la bonne colonne uniquement
   If AnFacture1.List(y, 2) = "Payer" Then
      Sheets("RECAP IMPAYER").Range("E" & Lig).Offset(, y * 15).Font.ColorIndex = 5 'Bleu
   Else
      Sheets("RECAP IMPAYER").Range("E" & Lig).Offset(, y * 15).Font.ColorIndex = 3 'Rouge
   End If
  Next y
End With
'Pour la Combo AnnexeFacture2
  With AnFacture2
  [COLOR="Red"][B]If .Value = "" Then Exit Sub[/B][/COLOR]
'Balayer tous les items
 For y = 0 To .ListCount - 1
 'si l'item est "Payer"
'alors mettre couleur bleue dans la bonne colonne uniquement
       If AnFacture2.List(y, 2) = "Payer" Then
       Sheets("RECAP IMPAYER").Range("G" & Lig).Offset(, y * 15).Font.ColorIndex = 5  'Bleu
    Else
       Sheets("RECAP IMPAYER").Range("G" & Lig).Offset(, y * 15).Font.ColorIndex = 3 'Rouge
      End If
  Next y
  End With
 'Pour la Combo Facture Unique
  With FactureUnique
    [COLOR="Red"][B]If .Value = "" Then Exit Sub[/B][/COLOR]
'Balayer tous les items
 For y = 0 To .ListCount - 1
'si l'item est "Payer"
'alors mettre couleur bleue dans la bonne colonne uniquement
    If FactureUnique.List(y, 2) = "Payer" Then
       Sheets("RECAP IMPAYER").Range("I" & Lig).Offset(, y * 15).Font.ColorIndex = 5 'Bleu
    Else
       Sheets("RECAP IMPAYER").Range("I" & Lig).Offset(, y * 15).Font.ColorIndex = 3 'Rouge
    End If
 Next y
End With

With Feuil5
Set plage = .Range("B12:I16")
  .Range("B19") = ""
  For Each C In plage
    If C.Font.ColorIndex = 5 Then
      .Range("B19") = .Range("B19") + C.Value
    End If
  Next C
End With

End Sub

Sub test()
Dim plage As Range
With Sheets(1)
    Set plage = .[C12:C16,E12:E16,G12:G16,I12:I16]
    .[B19] = ""
        For Each C In plage
        .[B19] = .[B19] + C * (-1 * (C.Interior.ColorIndex = 5))
    Next C
End With
End Sub