merci!
ca marche à une petite exception : ca devrait descendre 3 lignes de plus... j'ai donc rajouté +3 :
Selection.AutoFill Destination:=Range("H4:I" & [E1+3]), Type:=xlFillDefault
je suppose que c'est parceque mes formules sont sur la ligne 4 et E sur la ligne 1 (malgré que E1 donnait pourtant le bon nombre de lignes à décendre)
bonne soiree à toi
dan