Bonjour,


J'aimerais faire une boucle pour fusionner des cellules 2 par 2 dans une colonne à partir de la cellule Cells ("7,x:8,x") Ligne 7 et 8 colonne x jusqu'aux lignes 53 et 54
mais il me met Erreur d'exécution '5' Argument ou appel de procédure incorrect.
Si quelqu'un pouvait m'aider à trouver mon erreur.
D'avance merci.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For n = 7 To 53
 
Sheets("feuille 1").Select
Cells("n,x:n+1,x").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.verticzlAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.Reading Order = xlXontext
.MergeCells = True
End With
 
Next