'si la colonne de la cellule active est < 15 alors (avant colonne O)
If ActiveCell.Column < 15 Then
'selectionner la cellule de la même ligne et colonne suivante
ActiveCell.Offset(0, 1).Select
'sinon
Else
'selectionner la cellule ligne suivante colonne 2 (colonne B)
Cells(ActiveCell.Row + 1, 2).Select
End If