Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim exclu, oldlig&, newlig As Variant
exclu = Array("Registre", "DONNEES", "modele") 'feuilles à ne pas étudier
With Sh
If IsNumeric(Application.Match(.Name, exclu, 0)) Then Exit Sub
If LCase(.Name) = LCase(.[B3]) Then Exit Sub
oldlig = Mid(.[B3].Formula, InStr(.[B3].Formula, "!") + 2)
newlig = Application.Match(Sh.Name, Sheets("Registre").[B:B], 0)
If IsNumeric(newlig) Then .[B3:F21].Replace oldlig, newlig, xlPart
End With
End Sub