Pb compatibilité code avec liste déroulante avec lettre et #

Bonjour,

grâce au forum (merci Francky), j'ai un code qui me permet de dire si A1 non vide alors B1 = A1 mais si en même temps B1 = non vide, alors ne pas remplacer B1 par A1 avec le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") And Range("B1") = "" Then

Range("B1") = [A1]

End If

End Sub

Le code fonctionne même si A1 et B1 comportent des listes déroulantes numériques : 22, 54...

Mon pb est que mes cases A1 et B1 comportent des listes déroulantes avec lettre et numéro : D4, B3, F2...

Ça me renvoie alors une erreur : "Run-time error '13' type mismatch"

Est-il possible de contourner ce pb ?

Merci Forum

Bonjour tout le monde,

un petit up car j'ai beau chercher je ne trouve pas comment faire.

Merci beaucoup pour votre aide.

Ça marche comme ça :

If Range("A1") <> "" And Range("B1") = "" Then

Range("B1") = [A1]

End If