voici mon code
Option Explicit
Dim tablo, Tabapm(), Tabac(), Tabec(), Tabap(), Tabamo(), Tabcf(), Tabeci(), Tabpe(), Tabt(), Tabr(), Taberr(), i&, j&, kerr&, Kapm&, Kac&, Kec&, Kap&, Kamo&, Kcf&, Keci&, Kpe&, Kt&, Kr&
Sub Séparer()
Dim dlig As Integer
Dim mesfeuilles
Dim n As Integer
Dim...