Bonjour,
C'est que Cel contient à ce moment une valeur autre que du texte.
Si c'est anormal, tu cherches où est l'erreur...
Si c'est indifférent au déroulement de la procédure, soit tu testes d'abord s'il s'agit de texte (fonction de feuille de calcul IsText), soit tu mets sous gestion d'erreur pour pouvoir poursuivre :
On Error Resume Next
For Each Cel In Plage
If Cel Like "oui" Then
If Err.Number <> 0 Then
Err.Clear: GoTo Suite
End If
'code...
End If
Suite:
Next Cel
On Error GoTo 0
Cordialement.
edit : Mais effectivement la remarque d'Eric suffit à expliquer l'erreur 13... donc mes considérations sont à envisager si erreur après rectification du "oui" !