Copier coller VBA sous un mot precis

Bonjour,

je suis une débutante en VBA

j'ai pu trouver un code que j'ai pu adapter à mon code par contra j'ai un petit problème

je veux qu'il le copie par rapport un mot précis

convention unipropriétaire

Voici les exemples de fichiers

avec le résultats attendus

les fichiers se trouvent dans le même dossier

le code en question :

Sub ImportDatafromotherworksheet()

Dim wkbCrntWorkBook As Workbook

Dim wkbSourceBook As Workbook

Dim rngSourceRange As Range

Dim rngDestination As Range

Set wkbCrntWorkBook = ActiveWorkbook

With Application.FileDialog(msoFileDialogOpen)

.Filters.Clear

.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"

.AllowMultiSelect = False

.Show

If .SelectedItems.Count > 0 Then

Workbooks.Open .SelectedItems(1)

Set wkbSourceBook = ActiveWorkbook

Set rngSourceRange = Application.InputBox(prompt:="Select source range", Title:="Source Range", Default:="positionnement-etude'!$N$83", Type:=8)

wkbCrntWorkBook.Activate

Set rngDestination = Application.InputBox(prompt:="Select destination cell", Title:="Select Destination", Default:="A1", Type:=8)

rngSourceRange.Copy rngDestination

rngDestination.CurrentRegion.EntireColumn.AutoFit

wkbSourceBook.Close False

End If

End With

End Sub

Merci d'avance

Bonne journée

1ex2.xlsx (11.03 Ko)

0ex1.xlsx (11.51 Ko)

le bon fichier attendus