Aide en visual basic pour impression

[degards]

Bonjour à vous !!!

Dans le fichier joint j'ai une macro nommé "imprime" et j'aimerais bien être en mesure de condencer un peu plus les dernières lignes de commande de cette macro mais je ne suis pas capable dû à mon manque de connaissance. J'ai même pris la peine de vous écrire les lignes que j'avais besoin d'aide. La première fait une vérification si la cellule est vide ou non et par la suite j'aimerais qu'elle effectue la suite si la cellule n'est pas vide. Et ainsi de suite pour les 3 autres

Est-ce quelqu'un pourrait me donner un coup de main


If Sheets(1).Cells(31, 1) <> "" Then Sheets(1).Cells(2, 13) = Sheets(1).Cells(31, 1) & " " & Sheets(1).Cells(30, 1)
imprim
Sheets(1).Cells(2, 13) = Sheets(1).Cells(33, 1) & " " & Sheets(1).Cells(32, 1)
imprim
Sheets(1).Cells(2, 13) = Sheets(1).Cells(31, 5) & " " & Sheets(1).Cells(30, 5)
imprim
Sheets(1).Cells(2, 13) = Sheets(1).Cells(33, 5) & " " & Sheets(1).Cells(32, 5)
imprim


Merci !!!

Benoît

P.S. Le fichier fonctionne normalement en lien avec d'autres fichiers mais je ne crois avoir besoin de les joindres. Au besoin contactez moi !!!