Sub test()
Dim Cel As Range, Plage As Range
Dim F As Worksheet, X As Range, Y As String
Dim Pl As Integer, Pl_1 As Integer
For Each F In ThisWorkbook.Sheets
If F.Name = "Data" Then
F.UsedRange.Interior.ColorIndex = xlNone
Else
For Each Cel In F.UsedRange
Pl = InStr(Cel.FormulaLocal, "Data!")
Do While Pl > 0
Pl = Pl + 5
Pl_1 = InStr(Pl, Cel.FormulaLocal, ";")
If Pl_1 = 0 Then Pl_1 = InStr(Pl, Cel.FormulaLocal, ")")
If Pl_1 = 0 Then Pl_1 = Len(Cel.FormulaLocal) + 1
Y = Y & Mid(Cel.FormulaLocal, Pl, Pl_1 - Pl) & ", "
Pl = InStr(Pl, Cel.FormulaLocal, "Data!")
Pl_1 = 0
Loop
Next Cel
End If
Next F
Sheets("Data").Range(Left(Y, Len(Y) - 2)).Interior.ColorIndex = 3
End Sub