Sub Macro1()
Dim PlgTab As Range, Zone As Range, Col As Range, Nombre As Long
Set PlgTab = Rows("4:65536").SpecialCells(xlCellTypeConstants, 23).EntireColumn
MsgBox PlgTab.Address
Set PlgTab = Union(PlgTab, PlgTab)
MsgBox PlgTab.Address
For Each Zone In PlgTab.Areas
For Each Col In Zone.Columns
If Left$(Cells(2, Col.Column).MergeArea(1, 1).Value, 4) = "Tool" Then Nombre = Nombre + 1
Next Col
Next Zone
MsgBox "Nombre = " & Nombre
End Sub