For C = 1 To UBound(Tabtemp, 2)
.Cells(Derlgn, C) = Tabtemp(L, C)
If Derlgn > 1 And C = 3 Then 'ligne ajoutée
With .Cells(Derlgn, C).Validation 'ligne ajoutée
.Delete 'ligne ajoutée
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Moteur,Porte,Sièges" 'ligne ajoutée
End With 'ligne ajoutée
End If 'ligne ajoutée
Next