simplification de macro

[mumu]

Bonjour le forum et bonne année à toutes et tous ! 🙂

Je me creuse la tête depuis un moment pour essayer de simplifier l'écriture de ce bout de macro sans succès. En fait je vais avoir besoin de coder plusieurs centaines de code lettre en code chiffre (ici il ne s'agit que d'un petit bout).
Est-ce que c'est possible d'écrire ça de manière plus light ?

Do While ActiveCell.Value <> ""
If ActiveCell.Text Like "*BL" Or ActiveCell.Text Like "*BR" Or ActiveCell.Text Like "*CH" _
Or ActiveCell.Text Like "*CM" Or ActiveCell.Text Like "*CN" Or ActiveCell.Text Like "*DK" _
Or ActiveCell.Text Like "*DP" Or ActiveCell.Text Like "*DZ" Or ActiveCell.Text Like "*FC" _
Or ActiveCell.Text Like "*LH" Or ActiveCell.Text Like "*MX" Or ActiveCell.Text Like "*PL" _
Or ActiveCell.Text Like "*RO" Or ActiveCell.Text Like "*SB" Or ActiveCell.Text Like "*SM" _
Then ActiveCell.Offset(0, 1).Value = "7"
ActiveCell.Offset(1, 0).Select
Loop

D'avance merci !!!!!!!!

Mumu

 

[mumu]

Re : simplification de macro

Salut Pyrof,

Je te remercie pour cette autre réponse.
Je regarde ça la semaine prochaine......