Bonjour,
J'ai un problème avec la méthode Range de la macro ci dessous (en rouge). Si quelqu'un à une idée de correction se sera avec plaisir.
Sub test4()
'
' test2 Macro
'
Dim i As Long
Dim j As Long
Dim k As Long
Dim plage As Range
For i = 16 To 262
j = i + 1
k = -i - 1
Range("E" & i - 1).Select
Selection.Copy
Range("E2" & i + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=SUMIF('Base de donnée NC'!R2C19:R30000C19,R[" & j & "]C1&R[" & k & "]C,'Base de donnée NC'!R2C18:R30000C18)"
Range("E2" & i + 1).Select
Set plage = Range("E" & j & ":NE" & j)
Selection.AutoFill Destination:=Range("plage"), Type:=xlFillDefault
Range("plage").Select
Next
End Sub
Je vous remercie d'avance