Sub copie_et_rectif_hyperliens()
Dim i As Byte, j As Byte, x As Byte, y As String
Application.ScreenUpdating = False 'éviter le raffraichissement de l'écran
For j = 1 To 10 'nb de feuilles à copier
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count) 'on copie la feuille 1, copie qu'on place en fin
For i = 1 To ActiveSheet.Hyperlinks.Count 'de 1 jusqu'au nombre de liens hypertexte dans la feuille
x = InStr(1, ActiveSheet.Hyperlinks(i).SubAddress, "!") 'on calcule la position du ! dans le lien
y = Right(ActiveSheet.Hyperlinks(i).SubAddress, Len(ActiveSheet.Hyperlinks(i).SubAddress) - x)
'on récupère l'adresse de la cellule du lien, en prenant ce qu'il y a à droite du !
'grâce au calcul du x
ActiveSheet.Hyperlinks(i).SubAddress = "'" & ActiveSheet.Name & "'" & "!" & y
'on redéfinit l'adresse
Next i
Next j
End Sub