Sub CopierColler()
z = 0
LigneFeuille1 = 2
Sheets("Feuil1").Select
i = 0
Do While i <= 400
If Range("c2").Offset(i, 0).Value = "A concevoir" Then
Range("c2").Offset(i, 0).EntireRow.Copy
Sheets("Feuil2").Select
Cells(LigneFeuille1, 1).EntireRow.Insert Shift:=xlDown
Sheets("Feuil1").Select
z = z + 1
End If
i = i + 1
Loop
Sheets("Feuil2").Select
Range("C2:C" & z).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=etat_feuil2"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub