re ,
du coup je pallie au souci de la façon suivante
' cellule bas
If InRange(ActiveCell, Range("C8
8")) Or _
InRange(ActiveCell, Range("C10
10")) Or _
InRange(ActiveCell, Range("C12
12")) Or _
InRange(ActiveCell, Range("C14
14")) Or _
InRange(ActiveCell, Range("C16
16")) Then
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(1, 0)).Merge
end if
'cellule haut
If InRange(ActiveCell, Range("C7
7")) Or _
InRange(ActiveCell, Range("C9
9")) Or _
InRange(ActiveCell, Range("C11
11")) Or _
InRange(ActiveCell, Range("C13
13")) Or _
InRange(ActiveCell, Range("C15
15")) Then
If ActiveCell = "" And ActiveCell(2, 1) = "" Then
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0)).Merge
End If
ActiveCell.Select
End If