Rassemblement reference

Bonjour a tous,

Je bloque sur une macro.

En fait j'ai un classeur avec une trentaine de pages.

Sur la page gabarit, j'aimerais réunir tout les référence des autres pages, mais les références peuvent.

Mais je bloque, car ce que je fait est long.

Si quelqu'un peut m'aider.

PS: le fichier est une extraction de mon fichier, mais mon fichier est presque identique (mais avec des pages en plus)

Salut Damsa,

premier jet un peu à l'aveuglette...
- effacement de 'Gabarit' ;
- importation de toutes les feuilles vers 'Gabarit' ;
- tri sur base de la colonne [B:B] et suppression des doublons.

La macro démarre sur un double-clic en 'Gabarit' [A1].

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Application.ScreenUpdating = False
Cancel = True
'
If [A3] <> "" Then [A3].Resize(UsedRange.Rows.Count, 8).Delete shift:=xlUp
For x = 1 To Sheets.Count
    If Sheets(x).Name <> "Gabarit" Then _
        lngRow = IIf([A3] = "", 3, Range("A" & Rows.Count).End(xlUp).Row + 1): _
        lngCut = Sheets(x).UsedRange.Rows.Count - 2: _
        Sheets(x).Range("A3").Resize(lngCut, 8).Cut Range("A" & lngRow).Resize(lngCut, 8)
Next
[A3].Resize(UsedRange.Rows.Count - 2, 8).Sort key1:=[A3], order1:=xlAscending, Orientation:=xlTopToBottom, Header:=xlNo
[A3].Resize(UsedRange.Rows.Count - 2, 8).RemoveDuplicates Columns:=2
'
Application.ScreenUpdating = True
'
End Sub

J'imagine qu'il y a une autre étape mais j'attends des précisions.

A+

Merci Curulis.

En fait, je ne veux pas que la base soit effacée, mais qui ajout les référence manquantes.

J'ai eu une illumination cette nuit et j'ai essayé quelque chose, qui me convient mais qui a mon avis peut être amélioré (surtout pour la rapidité d'exécution)

Je partage ce que j'ai fait.

Si quelqu'un veut y jeter un œil.