Option Explicit
Sub ActFeuille()
Dim Feuille, Num&
Num = Right(Application.Caller, Len(Application.Caller) - 7)
Feuille = "Feuil" & Num
Active_Feuille Feuille
End Sub
Private Sub Active_Feuille(Feuille As Worksheet)
Feuille.Activate
'plus si affinité
'copie
'mise en forme
End Sub