Private Sub semis_var_Click()
Dim dl As Long ' dernière ligne
dl = Feuil1.Range("a65536").End(xlUp).Row + 1
p = 10
[COLOR=Blue][COLOR=Black]For m = 2 To dl[/COLOR][B]
With Workbooks("programmes.xls")[/B][/COLOR]
If Feuil1.Cells(m, 17) = Doperation Then
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(6, 10) = Doperation
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(p, 1) = Feuil1.Cells(m, 5)
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(p, 2) = Feuil1.Cells(m, 4)
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(p, 3) = "Tomate"
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(p, 4) = Feuil1.Cells(m, 15) & " / " & Feuil1.Cells(m, 11)
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(p, 5) = Feuil1.Cells(m, 9)
[B][COLOR=Blue] .Sheets("Semis Vte")[/COLOR][/B].Cells(p, 6) = Feuil1.Cells(m, 18)
p = p + 1
End If
[COLOR=Blue][B] End With[/B][/COLOR]
Next m
End Sub