Bonjour,
dans Sub Séparer()
Corriger
Dim mafeuille As sheets
et
mafeuille = Sheets(mesfeuilles(n))
en
Dim mafeuille As Worksheet
et
Set mafeuille = Sheets(mesfeuilles(n))
plus loin, en fin de sub, une erreur sur :
dlig = Ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
où Ws est une variable non définie....
A+