Fusionner cellules VBA

Je ferais quelque chose dans ce genre là

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Workbook_Open() Dim Chemin As String, Fichier As String Application.ScreenUpdating = False   Chemin = "D:\Divers\Macro\tests\" Fichier = "Classeur test.xls"   Workbooks.Open Filename:=Chemin & Fichier   With Workbooks(Fichier) .Sheets(1).Range("A1:D1").MergeCells = True .Save .Close End With   Application.ScreenUpdating = True End Sub

---

Superbe !!!
Merci Beaucoup Fring de m'avoir aidé !!
Merci également à ceux qui ont participé!