Bonjour bienvenue sur le forum.
Vous n'avez pas de message d'erreur ?
• Pourquoi "Dim i%" et pas "Dim i" ?
• Les noms des feuilles correspondent bien au classeur testé: "Sheets("CIC2C3")" ?
• Ne confondez pas Range et Cells.. il ne faut que des chiffres correspondant au numéro de ligne et colonne, je vois que vous mettez du texte avec cells comme ici:
Cells(i,"a")
Range lui attent l'adresse de la cellule comme par exemple A3 ou F4 etc.