Sub Mat()
Dim U, i, LigneMax, T1 As Double, xRg As Range
Sheets("resultat").Activate
Application.ScreenUpdating = False
T1 = Timer
If Range("B1") = "Matricule" Then
MsgBox "Déjà traité"
Exit Sub
End If
LigneMax = Cells(Rows.Count, "a").End(xlUp).Row
If LigneMax = 1 Then Exit Sub
Columns("B").Insert Shift:=xlToRight
U = Range(Cells(2, "f"), Cells(LigneMax, "f")).Value
For i = LBound(U, 1) To UBound(U, 1)
If U(i, 1) = 200 Or U(i, 1) = 5 Then U(i, 1) = "" Else U(i, 1) = i
Next i
Range(Cells(2, "b"), Cells(LigneMax, "b")).Value = U
Range(Cells(2, "a"), Cells(LigneMax, "ae")).Sort key1:=Columns("b"), Header:=xlNo
Set xRg = Range(Cells(2, "b"), Cells(LigneMax, "b"))
Set xRg = xRg.Find(what:="", after:=xRg(1, 1), searchdirection:=xlNext)
If Not xRg Is Nothing Then Range(xRg, Cells(LigneMax, "b")).EntireRow.Delete
LigneMax = Cells(Rows.Count, "a").End(xlUp).Row
If LigneMax = 1 Then Exit Sub
U = Range(Cells(2, "a"), Cells(LigneMax, "b")).Value
For i = LBound(U, 1) To UBound(U, 1)
U(i, 2) = Mid(U(i, 1), InStr(U(i, 1), ":") + 1, 99)
U(i, 2) = Trim(Left(U(i, 2), InStr(U(i, 2), ")") - 1))
U(i, 1) = Trim(Left(U(i, 1), InStr(U(i, 1), "(") - 1))
Next i
Range(Cells(2, "a"), Cells(LigneMax, "b")).Value = U
Range("A1") = "Nom": Range("B1") = "Matricule"
Application.ScreenUpdating = True
MsgBox (Timer - T1)
End Sub