Macro données onglet

Sub consolide_ongletsNomOngletCouleur()
 Sheets("base").[A1].CurrentRegion.Offset(1, 0).Clear
 For s = 2 To Sheets.Count [SIZE=3][COLOR=Blue][B]- 2[/B][/COLOR][/SIZE]
   nlig = Sheets(s).[A65000].End(xlUp).Row - 1
   ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
   [A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
   [A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol + 1).Interior.ColorIndex = _
       Sheets(s).[A2].Interior.ColorIndex
   [A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
   Sheets(s).[A2].Resize(nlig, ncol).Value
 Next s
 On Error Resume Next
 [A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub