Bonjour,

je souhaiterais réduire mon code.
quelle fonction me permettrait de taper moins de ligne "identiques" ?
voici un petit bout de mon code.
j'ai une 30ène de lignes identiques à saisir et vérifier à chaque mise à jour.

merci d'avance

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
    If Sheets("Supports").Cells(27, 7).Value / Sheets("Supports").Cells(26, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If
    If Sheets("Supports").Cells(29, 7).Value / Sheets("Supports").Cells(28, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If
    If Sheets("Supports").Cells(45, 7).Value / Sheets("Supports").Cells(44, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If
    If Sheets("Supports").Cells(47, 7).Value / Sheets("Supports").Cells(46, 7).Value < 1.04 Then
        hgc = hgc + 5
        GoTo testgcb
    End If