Bonsoir,
Est ce que la cellule E6 contient bien un code postal et une ville ?
Code = Left(Sheets("Facture").Range("e6").Value, 5) prend les 5 caractères à gauche de la cellule E6 (code postal)
ville = Right(Range("e6").Value, Len(Range("e6").Value) - 6) prend tous les caractères à droite de la cellule E6 - 6 caractères (le code postal et l'espace ce qui donne la ville)
Essaies de changer l'instruction :
ville = Right(Range("e6").Value, Len(Range("e6").Value) - 6)
par
ville = Right(Sheets("Facture").Range("e6").Value, Len(Range("e6").Value) - 6)
Cordialement.