Fusion 2 cellules excel vba sujet

Bonsoir à tous,

Je suis novice en vba et je rencontre déjà un petit problème.
Je vous explique j'ai 2 feuilles identique avec la même forme mais différente information.

Je voudrais faire une fusion avec mes 2 premières colonnes que je vais mettre dans une 3ième feuille. J'ai commencé le code mais le problème c'est qu'il me fusionne juste les 2 premières infos mais pas les autres et il ne l'est affiche pas. Si quelqu'un pouvais m'aidé..

Voilà mon code et je fourni aussi mon fichier excel:

Code:

---

Sub Fusion()

Dim s As Byte

 For s = 1 To 2
    With Sheets(s)
   
    Sheets("Sheet3").Range("A2" & n) = Sheets(s).Range("A2" & n) & "" & Sheets(s).Range("B2" & n)

    End With
Next s

End Sub

---

Merci d'avance pour vos réponse

Fichiers attachés

essai.zip (19,3 Ko)