Private Sub CommandButton1_Click()
Dim R As Range
For Each R In Range("C2", [C65000].End(xlUp))
Select Case R.Value
Case 113, 99, 61, 116, 114: R(1, 2) = "PROD02ODB02" 'à droite !
Case 97, 109, 69: R(1, 2) = "PROD02ODB03"
Case 107, 95, 62: R(1, 2) = "PROD02ODB04"
Case 108, 92, 88, 112, 110, 65, 75: R(1, 2) = "TKUDPCells02"
Case 89, 64, 82, 115, 67, 119, 120, 121: R(1, 2) = "TKUDPCells03"
Case 122, 66, 117, 118, 127: R(1, 2) = "TKUDPCells04"
Case 123, 74, 111, 106: R(1, 2) = "TKUDPCells05"
Case Else
R(1, 2) = "TKUDPCells06"
End Select
Next
End Sub