Bonjour

Donc voila ce que j'ai fait : 'condition heure 100%
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
                    Range("L13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-1])>35,35,SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-1]))"
 
    'condition heure 125%
    Range("M13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-2])>39,39-35,IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-2])<35,""""))"
 
    'condition heure 150%
    Range("N13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-3])>39,SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-3])-39,IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-3])<35,""""))"
 
    'somme heure 100%
    Range("L13").Select
    Selection.AutoFill Destination:=Range("L13:L2000"), Type:=xlFillDefault
    Range("L13:L2000").Select
 
    'somme heure 125%
    Range("M13").Select
    Selection.AutoFill Destination:=Range("M13:M2000"), Type:=xlFillDefault
    Range("M13:M2000").Select
 
    'somme heure 150%
    Range("N13").Select
    Selection.AutoFill Destination:=Range("N13:N2000"), Type:=xlFillDefault
    Range("N13:N2000").Select
il faudrait supprimé les A4000 et LMN2000 et mettre a la place jusqu’à la dernière ligne de la colonne de A
Sinon voilà le résulta que je veux, en imaginant bien-sure qu'il y "x" semaine

a b c d e k l m n
n°semaine ... ... ... heure n°semaine heure 100% heure 125% heure 150%
49 8 49 35 3
49 10.5 50 30
49 10.5 51 35 4 4
49 9
50 15
50 15
51 11
51 11
51 11
51 10

Merci d'avance