Salut KIM
bonjour pierrejean,Bebere
je n'ai pas le fichier prj_KIMv11.xls
donc comme tyu le verras je n'ai que deux macro l'une pour H5 et l'autre qui remplissait les autres colonne soient I à O donc j'ai réalisé ce que tu demande (je pense lol)mais en collant deux fois la même formule dans J5 et N5
enfin tu regardes
voila la macro
Sub recupFormule_2()
Dim Tableau() As Variant
ReDim Tableau(2)
Application.ScreenUpdating = False
Tableau(0) = '=' & 'SOMMEPROD((ColD=$G5)*ColB)'
Tableau(1) = '=' & 'SOMMEPROD((ColD=$G5)*(ColA=I$4)*ColB)'
Tableau(2) = '=' & 'SOMMEPROD((ColD=$G5)*(ColA=J$4)*ColB)' 'j'ai remis la même car je n'ai pas le fichier _
avec les trois macros différentes de H5, J5 et N5 LOL il te suffit de changer la formule de Tableau(2)
For L = 0 To UBound(Tableau, 1)
Select Case L
Case Is = 0
Range('H5').FormulaLocal = Tableau(L)
Case Is = 1
Range('I5').FormulaLocal = Tableau(L)
Range('I5').AutoFill Destination:=Range('I5:L5'), Type:=xlFillDefault
Case Is = 2
Dim Derlgn As Byte ''je n'ai pas compris quelle formule mettre en M
Dim DerCol As Byte
DerCol = Range('IV4').End(xlToLeft).Column
Range('M5').FormulaLocal = Tableau(L)
Range('M5').AutoFill Destination:=Range(Cells(5, 13), Cells(5, DerCol)), Type:=xlFillDefault
End Select
Next
Derlgn = Range('G65536').End(xlUp).Row
Range(Cells(5, 8), Cells(5, DerCol)).AutoFill Destination:=Range(Cells(5, 8), Cells(Derlgn, DerCol)), Type:=xlFillDefault
Range(Cells(5, 8), Cells(Derlgn, DerCol)).Value = Range(Cells(5, 8), Cells(Derlgn, DerCol)).Value
Application.ScreenUpdating = True
End Sub
bonne fin de jOurnée [file name=prj_KIMv_080606.zip size=43776]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/prj_KIMv_080606.zip[/file]