Sub TraitementDonnées()
Dim i As Integer
Application.Workbooks.Open ("D:\Documents and Settings\Marm\Bureau\Produits.xls")
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
For i = 1 To 50
If Range("A1").Value <> "18:00:00" Then Range("A1").EntireRow.Delete
Next i
End Sub