Sub Conversion()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("copie").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Feuil1.Copy After:=Feuil1
ActiveSheet.Name = "copie"
On Error GoTo fin
With Sheets("copie")
derlg =. Cells.Find("*", , , , xlByRows, xlPrevious).Row
Set plage = .Range("$A$3:$CR$" & derlg)
For Each lig In plage.Rows
lig.Value = lig.Value
Next
plage.AutoFilter Field:=12, Criteria1:="Closed"
End With
Exit Sub
fin:
MsgBox "Ligne à vérifier: " & lig.Address
End Sub