Macro pour fusioner 2 cellules toutes les 2 lignes

Bonjour, j'aimerais créer une macro me permettant de fusionner 2 cellules toutes les 2 lignes, je m'explique

Voici mes cellules :

A1

A2

A3

A4

A5

A6

J'aimerais fusionner les cellules A1&A2 , A3&A4, A5&A6. Et ceci jusqu'à la cellule A2000.

J'aimerais ainsi obtenir :

A1&A2

A3&A4

A5&A6

Je suis très mauvais en VBA, ainsi, je n'arrive pas à créer cette macro tout seul. Si quelqu'un pouvait m'aider je lui en serais infiniment reconnaissant.

Merci à tous !

sub toto()
with sheets("Feuil1")
for i = 1 To 2000 step 2
.range(.cells(i, 1), .cells(i + 1, 1)).merge
next i
end with
end sub

Bonjour,

Il faut faire très attention à la différence entre deux notions bien distinctes : Fusion et Concaténation ...

Dans la fusion, deux cellules deviennent une ... accessoirement, le contenu de la seconde est supprimé ...

Dans la concaténation, les cellules ne sont pas affectées, on travaille sur leurs contenus ... que l'on "additionne" ...

En effet, si tu vas au marché et que tu demandes des pommes, mais qu'en fait tu voulais des poires, il ne faut pas être étonné que la marchande nous file des pommes.

Oui, je voulais bien fusionner les cellules !

Merci beaucoup pour la réponse rapide, ça fonctionne niquel.

A bientôt !