j ai fait une petite modif j ai mis delete a la place clear
Sub EffacerB()
Dim x: x = Array("septembre", "octobre", "novembre", "decembre", "janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "aout")
Dim Ligne As Long
Ligne = ActiveCell.Row
Worksheets("septembre").Rows(Ligne).Delete
Sheets(x).FillAcrossSheets Worksheets("septembre").Rows(Ligne)
End Sub
ca me supprime bien la ligne mais uniquement sur la premiere feuille septembre pas sur les autre mois