with Sheets("Soirées ").Range("i:i") 'dans la colonne I de la feuille Soirée
Set VNumsoiree = .Find(Vtheme, LookAt:=xlWhole) 'cherche le contenu de la variable VTheme: et la cellule trouvée est "nommée" VNumsoirée
If Not VNumsoiree Is Nothing Then 'si la recherche a donné quelque chose !
vcolnumsoiree = VNumsoiree.Column 'récupère la colonne
vrgnumsoiree = VNumsoiree.Row + 14 'récupère la ligne +14
If Cells(vrgnumsoiree - 14, vcolnumsoiree - 7).Value = "" Then 'pourrait etre remplacé par : if VNumSoiree.offset(0,-7)="" then '''----Deja expliqué dans l'autre post
set RechAdherent = Sheets("BdD").Range("a:a").Find(VNAdherent, LookAt:=xlWhole) 'nouvelle recherche de VNAdherent dans la colonne A de la feuille BdD
'idem.. manque la condition if Not RechAdherent is nothing then
ligneadherentbdd = RechAdherent.Row
....
....
...
Sheets("BdD").Range(Cells(ligneadherentbdd, 2), Cells(ligneadherentbdd, 8)).Copy: _ 'à mon avis;. il faut revoir la syntaxe du copy..
'voir aide vba: range().copy destination:= ....
.Paste .Range(Cells(vrgnumsoiree - 14, 2))
Application.CutCopyMode = False
'
Autre code qui suit....
End with