Lien cellule dans pied de page

Bonjour,

Je voudrais insérer le contenu d'une cellule d'une feuille excel dans le pied de page de toutes les feuilles d'un classeur excel (référence et indice du document pour ne pas avoir à modifier chaque feuille à chaque évolution de l'indice...).

Pour une seule feuille, pas de problème (j'ai récupéré le code sur le forum !), mais pour le faire sur toutes les feuilles, ça ne fonctionne pas...

Voilà ma macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$K$10" Then
Sub boucle_while()

Dim numero As Integer
numero = 1
While numero <= ThisWorkbook.Sheets.Count
PageSetup.RightFooter = Sheets(numero).Range("K10").Value 'Numérotation
numero = numero + 1
Wend

End Sub

End If
End Sub

Merci de votre aide.