Microsoft 365 Recherche critères par vba

For Each c In plage
    If c = "Accepted" Then
        '---
    ElseIf c = "Pending" Then
        '---
    Else
        '---
    End If
Next

Sub Formules_Week_Accepted()
   If Worksheets("Accepted").Range("A3").value = "" Then Exit Sub
   Worksheets("Accepted").Range("B3:C" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 _
      = "=IFERROR(SUMPRODUCT((ann=R2C)*OR(cen=""Accepted"",cen=""Pending"")*(sem=RC1)),"""")"
   End Sub

Sub Formules_Week_Accepted()
   If Worksheets("Accepted").Range("A3").value = "" Then Exit Sub
   Worksheets("Accepted").Range("B3:C" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 _
      = "=IFERROR(SUMPRODUCT((ann=R2C)*((cen=""Accepted"")+(cen=""Pending""))*(sem=RC1)),"""")"
   End Sub