bonjour es que l'on peux simplifier ce code svp
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
34
35
36
37
38
39
40
41
Sub Compteur_3()
    Dim i As Integer
    Dim j As Integer
    Dim Compteur1 As Integer
    Dim Compteur2 As Integer
    i = 3
    j = 3
    Compteur1 = 0
    Compteur2 = 0
 
    Do While Range("A" & i).Value <> ""
 
     If Range("A" & i).Value = 1 Then
           Compteur1 = Compteur1 + 1
       Else
           'Compteur = 0
     End If
 
     i = i + 1
    Loop
 
 
    Range("j4").Value = Compteur1
 
  Do While Range("A" & j).Value <> ""
 
 
If Range("A" & j).Value = 2 Then
           Compteur2 = Compteur2 + 1
       Else
           'Compteur = 0
     End If
 
     j = j + 1
    Loop
 
 
    Range("k4").Value = Compteur2
 
 
End Sub
merci