Bonjour,

Voici un début de code qui renvoit une erreur (91: "Variable objet ou variable de bloc With non définie") au niveau de la ligne en gras malgré le On Error GoTo Continue2:

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
Option Base 1

Sub test()

        Dim c As Range
        Dim LEnt() As Integer

Début:
        Set c = Columns(1).Find("Bla :")
        On Error GoTo Continue
        adr = c.Address
        On Error GoTo 0
    Do
        If c.Offset(2) = "Blabla" Then Rows(c.row & ":" & c.row + 2).Delete: GoTo Début
        Set c = Columns(1).FindNext(c)
    Loop While c.Address <> adr
    'supprime les entrées sans contenu
    
Continue:
On Error GoTo 0

            ReDim LEnt(1)
        LEnt(1) = 2
        Set c = Range("A:A").Find("Bla :")
        On Error GoTo Continue2
        adr = c.Offset(2).Address
        On Error GoTo 0
    Do
        Rows(c.row).Resize(2).Insert
        ReDim Preserve LEnt(UBound(LEnt) + 1)
        LEnt(UBound(LEnt)) = c.row + 1
        Set c = Range("A:A").FindNext(c)
    Loop While c.Address <> adr
    'alimente la table des lignes d'en-tête
        
Continue2:
On Error GoTo 0

        MsgBox "Fin"
        
End Sub
Toute aide est bienvenue.

Cordialement