Rebonjoru alors la j'ai un problème de condition, ne hurlez pas quand je vous lirez mon programme...
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
For i = 1 To ligne
    If ref = Cells(i, 17) Then
       rep = 1
       ligne = i
       Exit For
    Else
       rep = 2
    End If
Next i
 
 
For j = 1 To ligne
    If page = Cells(j, 1) Then
 
       For a = j To ligne
              If page = Cells(a, 1) Then
                 Cells(1, 65000) = "1"
 
              Else
                 Range("a" & a).Select
                 Selection.Insert Shift:=xlDown
                 Selection.Insert Shift:=xlDown
                 a = a - 2
                 i = a
                 Exit For
              End If
       Exit For
    End If
Next j
Et sur mon dernier
end if
il me disent qu'il y a un end if sans bloque if.
Aidez moi svp merci