Bonjour,
Merci de joindre un fichier afin de t'aider et l'optimiser au mieux (nombre de CT maximum, emplacement de ces CT, nom des feuilles, structure du tableau, passage par un dico ou non, etc ...).
Sauf si tu arrives à adapter ce code par toi même :
Sub test()
For i = 1 to 9
Worksheets("Feuil"& i + 1).Cells.ClearContents
With Worksheets("Feuil1").UsedRange
.AutoFilter Field:=1, Criteria1:="CT0" & i
.Copy destination:=Worksheets("Feuil"& i + 1).Range("A1")
End With
Next i
End Sub
Bonne journée.