Macro pour copier contenu d'une colonne avec condition

Bonjour,

J'aimerais inclure dans le dernier macro de H2so4 un macro qui fusion les colonnes vis à vis des lignes qui contiennent des noms de rue. Mais je ne sais pas inclure deux macros ensemble. Pourriez-vous m'aider? Je voudrais aussi ajouter dans le macro une fonction qui met un trais foncé en haut et en bas de chaque rue.

J'ai ce macro pour la fusion, mais je ne sais pas s'il fonctionne bien pour ce que je veux. Merci pour votre aide.

Sub Fusionne()

Dim J As Long, K As Long

Application.DisplayAlerts = False

For K = 10 To 198 Step 37

For J = K To K + 27

If Range("A" & J) <> 0 Then

Range("A" & J).Resize(un, huit).Merge

End If

If Range("N" & J) <> 0 Then

Range("N" & J).Resize(un, Huit).Merge

End If

Next J

Next K

End Sub

J'ai marqué 1 et 8 en lettre car mon ordi bogue.

de rien

Merci beaucoup H2so4.

Tu es toujours là pour nous rendre service. Je t'en suis vraiment reconnaissante.

Tous fonctionne bien et je commence à comprendre plus le monde des macro grâce à toi.

Encore merci.