Sub separe()
mesfeuilles = Array("ATTENTE PRISE EN MAIN", "ATTENTE CONVOCATION", "EN COURS", "ATTENTE PIECES", "ATTENTE MO", "CONTROLE FINAL", "EN CIRCULATION", "PRESTATION EXTERNE", "TERMINE")
For n = LBound(mesfeuilles) To UBound(mesfeuilles)
Set mafeuille = Sheets(mesfeuilles(n))
With mafeuille
For m = .Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("I" & m) <> .Name Then
lafeuille = .Range("I" & m)
derlin = Sheets(lafeuille).Range("B" & Rows.Count).End(xlUp).Row + 1
.Rows(m).Copy Destination:=Sheets(lafeuille).Rows(derlin)
.Rows(m).Delete
End If
Next
End With
Next
End Sub