Salut Beberttlse,
ton fichier... juste un bouton rouge à cliquer après avoir ouvert les fichiers à traiter.
Private Sub cmdGO_Click()
'
Dim sWkB1 As Workbook, sWkB2 As Workbook, tData, tSplit, sData$
'
Set sWkB1 = ThisWorkbook
Cancel = True
For Each sWkB2 In Workbooks
If InStr(sWkB2.Name, "Dashboard") > 0 And (sWkB2.Name <> sWkB1.Name And InStr(sWkB2.Name, "PERSONAL") = 0) Then
With sWkB2.Sheets(1)
tData = .UsedRange.Value
For x = 1 To UBound(tData, 1)
For y = 1 To UBound(tData, 2)
If InStr(tData(x, y), "[") > 0 Then
sData = ""
tSplit = Split(tData(x, y), "]")
For Z = 0 To UBound(tSplit) - 1
sData = sData & IIf(sData = "", Split(tSplit(Z), "[")(1), ", " & Split(tSplit(Z), "[")(1))
Next
tData(x, y) = sData
End If
Next
Next
.Range("A1").Resize(UBound(tData, 1), UBound(tData, 2)).Value = tData
End With
End If
Next
MsgBox "Opération terminée!", vbInformation + vbOKOnly, "Clean Dashboard"
sWkB1.Close
'
End Sub
A+