Sub Macro1()
Dim i As Integer
Dim XTopo
Dim XPartnumber
Dim XX
Worksheets("EXPORT").Range("A1:H65000").ClearContents
Worksheets("Feuil1").Select
For i = 1 To Worksheets("Feuil1").Range("D65530").End(xlUp).Row
If Range("D" & i) Like "MIRE*" Then
Range("D" & i).Offset(, 0).Copy
Worksheets("EXPORT").Select
Range("E65530").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
End If
Next i
End Sub