Bonjour à tous,
Quand le code passe de feuille en feuille, si la dernière ligne de données est la ligne 1 (les entêtes), Taberr enregistre la ligne 1 et rend son contenu par la suite.
En ajoutant la condition, si Dlig = 1 then Dlig = 2, ça corrige le bogue... Taberr n'enregistre rien, il ne rend donc rien.
La petite correction ...
Sub Séparer()
Dim Ws As Worksheet
Dim Dlig As Integer
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name <> "BASE" Then
With Ws
Dlig = .Cells(Rows.Count, "B").End(xlUp).Row ' << ajout
If Dlig = 1 Then Dlig = 2 ' << ajout
tablo = .Range("B2:P" & Dlig) ' << changement
...
...
ric