Bonjour

voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
     Set sht = wbk.ActiveSheet
 
       ' Mise En Forme des Entetes
 
 
        Range("I6:K6").MergeCells = False ' Then Range("I6:K6").MergeCells = False
        Range("I7:K7").Select
        Selection.Copy
        Range("I6:K6").Select
        ActiveSheet.Paste
mon probleme c'est que la premiere fois que j'importe le document ca marche mais apres ca me fait des erreurs.

je voudrais faire un test du style
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
 if  Range("I6:K6").MergeCells = True' Then Range("I6:K6").MergeCells = False
mais ca fonctionne pas mieux .

vos idees seront les bienvenu

Merci