Sheets("Feuil1").Range("o3:o5").Select 'j'ai ajouter cette ligne, car il n'y avait rien dans ta sélection donc NumCC était vide d'où l'erreur
maintenant je ne suis pas sur que l'on devait sélectionner ces cellules
tes explications ne sont pas très claires ,peux-tu me donner des précisions
With ActiveSheet.Range("o3:o5")
For Each cELL In Selection
NumCC = cELL.Value
Sheets(NumCC).Select
Next cELL
End With