Sub test()
Dim sh As Byte
For Each ws In Worksheets
If InStr(ws.Name, "à") > 0 Then
For i = 2 To 31
Select Case UCase(ws.Cells(i, 4))
Case "TOCA", "TORA"
ws.Cells(i, 3) = 1
Case "YOLA"
ws.Cells(i, 3) = 2
Case "GEXI"
ws.Cells(i, 3) = 3
Case "GECA", "GEMO", "GECO"
ws.Cells(i, 3) = 4
Case "GUMI", "GIGA", "GETO"
ws.Cells(i, 3) = 5
Case "GUMO", "GOCA"
ws.Cells(i, 3) = 6
Case "TOCA", "GULE"
ws.Cells(i, 3) = 7
Case "TOCA", "YECA"
ws.Cells(i, 3) = 8
Case "MOCA", "MICA", "MIMA"
ws.Cells(i, 3) = 9
Case "PUCI", "PECO", "PUCO"
ws.Cells(i, 3) = 10
Case "PICA"
ws.Cells(i, 3) = 11
Case "PACK"
ws.Cells(i, 3) = 12
Case "PICO"
ws.Cells(i, 3) = 13
Case "POCA", "POCI", "PULE", "PULO", "PUCA", "PICU", "PACA"
ws.Cells(i, 3) = 14
Case "PENA", "PEMA", "PEMI"
ws.Cells(i, 3) = 15
Case "PUCE", "PUMA", "PECI"
ws.Cells(i, 3) = 16
Case "PETO", "PACY", "PENU"
ws.Cells(i, 3) = 17
Case "PACI"
ws.Cells(i, 3) = 18
Case "PACE"
ws.Cells(i, 3) = 19
Case "COFA"
ws.Cells(i, 3) = 20
Case Else
ws.Cells(i, 3) = ""
End Select
Next
End If
Next
End Sub