Sub transfert()
With Feuil1
For i = 2 To .UsedRange.Rows.Count
If .Cells(i, 14) = "x" Then
dl = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Feuil2.Cells(dl, 1).Resize(1, 11) = .Cells(i, 1).Resize(1, 11).Value
Feuil2.Cells(dl, 12) = Format(Now, "dddd dd mmmm yyyy hh:mm")
.Cells(i, 14) = "Transféré en Technique"
.Cells(i, 15) = Format(Now, "dddd dd mmmm yyyy hh:mm")
.Cells(i, 16) = Environ("username")
End If
Next i
End With
Feuil2.Activate
End Sub