Sub TraiterListe()
Dim supp, h&, tablo, i&, t$, v%, p%
supp = 200 'adapter la valeur à supprimer
Application.ScreenUpdating = False
h = Cells(Rows.Count, 1).End(xlUp).Row
[B:B].Insert 'insertion de 2 colonnes
[B:B].Insert
tablo = [A1:G1].Resize(h)
For i = 1 To UBound(tablo)
t = tablo(i, 1)
v = InStr(t, "(")
If v Then tablo(i, 1) = Trim(Left(t, v - 1))
p = InStr(t, ":")
If p Then tablo(i, 2) = Val(Mid(t, p + 1))
If tablo(i, 7) <> supp Then tablo(i, 3) = 1
Next
[A1:G1].Resize(h) = tablo 'restitution
'tri pour avoir les cellules vides en fin de liste (suppression plus rapide)
[A1].Resize(h, Columns.Count).Sort [C1]
On Error Resume Next 'si aucune cellule vide
[C:C].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
[C:C].Delete
[A1] = "Nom Prénom"
[B1] = "Matricule Agent"
Columns("A").AutoFit 'ajustement automatique
Columns("B").AutoFit
End Sub