Sub Auto_Open()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("feuil1")
For i = 3 To 3000
If Cells(i, 6).Value = .Cells(i, 7).Value Then
.Cells(i, 14).Value = Cells(i, 13).Value
Else
Cells(i, 13).Value = ""
End If
Next i
End With
Application.ScreenUpdating = True
End Sub