Supprimer des lignes en doublons

Dim strPath$, strFile$, i As Long
strPath = UserForm2.Données_minimaxi_txt.Value
With ThisWorkbook.Sheets(1)
strFile = UserForm2.TextBox5.Value
 Application.ScreenUpdating = False
        With ActiveWorkbook.Worksheets("Données_mini_maxi")
            With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _
                Destination:=.[A65536].End(xlUp).Offset)
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileSemicolonDelimiter = True
                .TextFileColumnDataTypes = Array(1)
                .Refresh BackgroundQuery:=False
            End With
            .[A1].CurrentRegion.Columns.AutoFit
        End With
       End With
Application.ScreenUpdating = False
End Sub