Merci Galopin01 et Hervé pour vos réponses aussi rapides !!
Au même moment, je trouvais la solution ci-dessous qui, à ma grande surprise, fonctionne même si le mot toto est noyé dans une foule d'infos !
Sub qa()
If Range("a1").Value Like "*toto*" Then
Range("d1") = "toto"
End If
End Sub
Merci encore à Galopin01 et Hervé pour votre aide
Pascal