Bonjour,

il y a plusieurs manières de traiter ton sujet.

Ci-joint une possibilité simple que tu devras améliorer, notamment en inscrivant dans la colonne A de la Feuille 2 les mots qui doivent être traités en minuscules.

Sub AdressePostale()
Dim PlMotsMin As Range, PlAdresses As Range
Dim Cel As Range, TabMots As Variant, Adresse
Dim i As Long, j As Long
Set PlMotsMin = Range("mots_min")
Set PlAdresses = Range("adresses")
j = 1
For Each Cel In PlAdresses
  Adresse = Application.WorksheetFunction.Trim(LCase(Cel.Text))
  TabMots = Split(Adresse)
  For i = LBound(TabMots) To UBound(TabMots)
    If Application.WorksheetFunction.CountIf(PlMotsMin, TabMots(i)) = 0 Then _
    TabMots(i) = Application.WorksheetFunction.Proper(TabMots(i))
  Next i
  PlAdresses(j).Offset(, 1) = Join(TabMots, " ")
  j = j + 1
Next Cel
End Sub

A+