countif boucle

'""""""""""""""""""""""""  2 ème partie ajout des calculs dans les cellules """
Dim D As Range
Dim Col_1 As Range
Dim val As Range
With Sheets("test")
  Set Zone_De_Recherche_2 = [A5:AM5]          '1ère ligne du tableau de recherche
    For Each D In Zone_De_Recherche_2
    Set Col_1 = Range(D.Offset(1, 0), D.Offset(14, 0)) 'Chaque colonne du tableau, décalé d'une ligne
      Select Case D.Text 'Recherche de l'entête de colonne
        Case Is = "NB_2"
        Col_1.Interior.ColorIndex = 20
          For Each val In Col_1
            Val_Concat = " " & val.Offset(0, -2) & " - " & val.Offset(0, -1) ' les celulles sont contenées pour faciliterr le comptage
            val.Offset(0, 2) = Val_Concat
            Debug.Print Val_Concat & "  /   " & Col_1.Rows.Count & "   /   " & val
          Next
      End Select
    Next
    For Each D In Zone_De_Recherche_2
    Set Col_1 = Range(D.Offset(1, 0), D.Offset(14, 0)) 'Chaque colonne du tableau, décalé d'une ligne
      Select Case D.Text 'Recherche de l'entête de colonne
        Case Is = "NB_2"
          For Each val In Col_1
            val = Application.CountIf(Col_1.Offset(0, 2), val.Offset(0, 2).Value) '
            val.Offset(0, 1) = Format(val / val.Offset(0, -1) * 100, "0") ' Calcul du % que represente
          Next
      End Select
    Next
End With

With [A5].CurrentRegion
.Columns.AutoFit
.HorizontalAlignment = xlCenter
End With
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""