Re : Consolider des onglets, macro de J.BOISGONTIER....
Re, le forum, Eric, Laurent, Bruno,
Merci, à vous, pour votre aide et solutions.
J'ai donc maintenant cette macro, qui plante sur "For s" avec message; Variable non définie...
Option Explicit
Sub consolide_onglets()
Sheets("base").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 0 To Sheets.Count
If Not Sheets(s).Name = "Commande" And Not Sheets(s).Name = "Demande Achats" Then
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
End If
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Bien amicalement,
Christian