Sub EssaiEric2()
Dim Tout(), T, i%
T0 = Timer
'Application.ScreenUpdating = False
T = Range("AM1:AR" & Range("AP65000").End(xlUp).Row)
ReDim Tout(UBound(T)): Tout(0) = "Résultat"
For i = 1 To UBound(T)
If T(1, 6) = T(i, 2) And T(1, 6) = T(i, 3) Then Chaine = ""
If T(i, 2) = "" And T(i, 3) = "" Then Chaine = ""
If T(i, 3) = T(i, 6) And T(i, 2) <> T(i, 3) Then Chaine = " -(" & T(i, 2) & ")"
If T(i, 2) = T(i, 3) And T(i, 3) <> "" Then Chaine = " -(" & T(i, 3) & ")"
If T(i, 6) = T(i, 3) And T(i, 2) = "" Then Chaine = ""
If T(i, 6) <> T(i, 3) And T(i, 2) <> T(i, 3) Then Chaine = " -(" & T(i, 2) & " " & T(i, 3) & ")"
Tout(i - 1) = T(i, 4) & " " & T(i, 6) & " " & T(i, 5) & Chaine & " " & T(i, 1) & " "
Next i
Range("$AS$1").Resize(UBound(Tout), 1).Value = Application.Transpose(Tout)
Application.ScreenUpdating = True
End Sub