Sub test()
Dim i%, j%, nb_1%, nb_2%, nb_N%
For i = 3 To 12
nb_1 = 0
nb_2 = 0
nb_N = 0
For j = 1 To 19 Step 2
Select Case Cells(i, j).Value
Case 1
nb_1 = nb_1 + 1
Case 2
nb_2 = nb_2 + 1
Case "N"
nb_N = nb_N + 1
End Select
Next j
Cells(i, 22).Value = nb_1
Cells(i, 24).Value = nb_2
Cells(i, 23).Value = nb_N
Next i
End Sub