Private Sub CommandButton1_Click() 'bouton "Rechercher"
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
ActiveCell.Select 'enlève le focus au bouton
On Error Resume Next 'gestion des erreurs (si l'onglet n'existe pas)
Set oc = Sheets(Right(Sheets("OPCVM").Range("B1"), 10)) 'définit l'Onglet Cible
If Err <> 0 Then 'condition : si une erreur est provoquée (l'onglet nexiste pas)
MsgBox "Onglet inexistant !" 'message
Exit Sub 'sort de la procédure
End If 'fin de la condition
On Error GoTo 0 'fin de la gestion des errreurs
With Sheets("OPCVM") 'prend en compte l'onglet "OPCVM"
For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules de la colonne A (en partant de A2)
Set r = oc.Columns(1).Find(cel, , xlValues, xlWhole) 'définit la Recherche r
'si il existe au moint une occurrence de r dans la colonne A de l'Onglet Cible, récupère la valeur de la colonne B
If Not r Is Nothing Then cel.Offset(0, 1).Value = r.Offset(0, 1).Value
Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "OPCVM"
End Sub