Sébastien a écrit :
Bonjour,
Les possibilités sont nombreuses, un fichier joint nous fera à tous gagner du temps
Cordialement,
En fait, je viens de trouver
If Range("A1").Value Like "*B*" Then
Range("A1").Copy Range("C20")
ElseIf Range("A1").Value Like "*M*" Then Range("A1").Copy Range("D20")
End If
Je ne connaisais pas la fonction Value Like
Merci pour votre aide