Sub Toto_Rech()
Dim Toto As String
Toto = Trim(Worksheets('base').Range('toto').Value)
On Error GoTo Fin
Sheets('Portef').Cells.Find(What:=Toto, After:=Sheets('Portef').Range('A1'), SearchOrder:=xlByRows).Copy
On Error GoTo 0
'code à exécuter
Exit Sub
Fin:
MsgBox 'Valeur non trouvée', vbOKOnly + vbInformation
End Sub