XL 2010 Fusion de 2 cellules en 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. Je voudrais faire une fusion avec mes 2 premières colonnes de chaque feuille que je vais mettre dans une troisiè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 pour que vous comprenez ce que je veux faire:

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

---

Je vous remercie d'avance.

Fichiers attachés

• 
  
  essai.zip‎
  (19,3 Ko)