Bonjour à tous,
Comme le titre le dit je voulais savoir s'il était possible de simplifier la macro ci-dessous avec par exemple des for ou des loop.
J'ai cherché dans les différents tutoriels mais je n'ai pas réussi à la simplifier.
Merci à tous pour votre aide


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub MAC1()
k = 11
m = 64
For i = 6 To 19
Range("F" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("E" & k), Feuil40.Range("E" & k), Feuil40.Range("E" & m), Feuil38.Range("E" & k))
Range("G" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("F" & k), Feuil40.Range("F" & k), Feuil40.Range("F" & m), Feuil38.Range("F" & k))
Range("H" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("G" & k), Feuil40.Range("G" & k), Feuil40.Range("G" & m), Feuil38.Range("G" & k))
Range("I" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("H" & k), Feuil40.Range("H" & k), Feuil40.Range("H" & m), Feuil38.Range("H" & k))
Range("J" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("I" & k), Feuil40.Range("I" & k), Feuil40.Range("I" & m), Feuil38.Range("I" & k))
Range("K" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("J" & k), Feuil40.Range("J" & k), Feuil40.Range("J" & m), Feuil38.Range("J" & k))
Range("L" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("K" & k), Feuil40.Range("K" & k), Feuil40.Range("K" & m), Feuil38.Range("K" & k))
Range("M" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("L" & k), Feuil40.Range("L" & k), Feuil40.Range("L" & m), Feuil38.Range("L" & k))
Range("N" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("M" & k), Feuil40.Range("M" & k), Feuil40.Range("M" & m), Feuil38.Range("M" & k))
Range("O" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("N" & k), Feuil40.Range("N" & k), Feuil40.Range("N" & m), Feuil38.Range("N" & k))
Range("P" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("O" & k), Feuil40.Range("O" & k), Feuil40.Range("O" & m), Feuil38.Range("O" & k))
Range("Q" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("P" & k), Feuil40.Range("P" & k), Feuil40.Range("P" & m), Feuil38.Range("P" & k))
Range("R" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("Q" & k), Feuil40.Range("Q" & k), Feuil40.Range("Q" & m), Feuil38.Range("Q" & k))
Range("S" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("R" & k), Feuil40.Range("R" & k), Feuil40.Range("R" & m), Feuil38.Range("R" & k))
Range("T" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("S" & k), Feuil40.Range("S" & k), Feuil40.Range("S" & m), Feuil38.Range("S" & k))
Range("U" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("T" & k), Feuil40.Range("T" & k), Feuil40.Range("T" & m), Feuil38.Range("T" & k))
Range("V" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("U" & k), Feuil40.Range("U" & k), Feuil40.Range("U" & m), Feuil38.Range("U" & k))
Range("W" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("V" & k), Feuil40.Range("V" & k), Feuil40.Range("V" & m), Feuil38.Range("V" & k))
Range("X" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("W" & k), Feuil40.Range("W" & k), Feuil40.Range("W" & m), Feuil38.Range("W" & k))
Range("Y" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("X" & k), Feuil40.Range("X" & k), Feuil40.Range("X" & m), Feuil38.Range("X" & k))
Range("Z" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("Y" & k), Feuil40.Range("Y" & k), Feuil40.Range("Y" & m), Feuil38.Range("Y" & k))
Range("AA" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("Z" & k), Feuil40.Range("Z" & k), Feuil40.Range("Z" & m), Feuil38.Range("Z" & k))
Range("AB" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("AA" & k), Feuil40.Range("AA" & k), Feuil40.Range("AA" & m), Feuil38.Range("AA" & k))
Range("AC" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("AB" & k), Feuil40.Range("AB" & k), Feuil40.Range("AB" & m), Feuil38.Range("AB" & k))
Range("AD" & i).Value = Application.WorksheetFunction.Sum(Feuil39.Range("AC" & k), Feuil40.Range("AC" & k), Feuil40.Range("AC" & m), Feuil38.Range("AC" & k))
k = k + 1
m = m + 1
Next i
End Sub