For i = 2 To dlg
'MsgBox MaColonne
If Cells(i, 1) = reponse And Cells(i, 12) = "Non" And Cells(i, 17) = "" Then
Cells(i, 17) = Now()
With Sheets("Temporaire")
dlg2 = .Range("A9999").End(xlUp).Row
If Not .Cells(dlg2, 1) = "" Then dlg2 = dlg2 + 1
wksSource.Range("A" & i, "W" & i).Copy
.Cells(dlg2, 1).PasteSpecial xlPasteValues
End With
End If
Next i