Bonjour Pierre Jean,
Merci encore pour le temps passé sur mon pb. Je viens de modifier la macro "this work book" en suivant vos préconisations :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim exclu, oldlig, newlig As Variant
exclu = Array("Registre", "DONNEES", "modele", "Labo Equipe", "Statistiques") 'feuilles à ne pas étudier
With Sh
If IsNumeric(Application.Match(.Name, exclu, 0)) Then Exit Sub
If LCase(.Name) = LCase(.[a4]) Then Exit Sub
oldlig = Mid(.[a4].Formula, InStr(.[a4].Formula, "!") + 2)
newlig = Application.Match(Sh.Name, Sheets("Registre").[a:a], 0)
If IsNumeric(newlig) Then .[a73:Fp500].Replace oldlig, newlig, xlPart
End With
End Sub
Maintenant c'est beaucoup mieux sur la ligne 39 mais par contre la MAJ des liaisons ne se fait plus du tout à savoir que dès le 2eme nom les formules restent liées à la ligne 4 et ne se décale pas en ligne 5. Avez vous une solution? D'avance merci.
cordialement
benoit