Sub Transforme()
Application.ScreenUpdating = False ' figer écran
NbLignes = Application.CountIf(Range("B:B"), "*") ' comptage nombre de lignes
For i = 1 To NbLignes ' pour toutes les lignes
Cells(i, 12).UnMerge ' défusionnage L:M
Cells(i, 13) = Cells(i, 14): Cells(i, 14) = "" ' transfert cellule et effacement N
Range(Cells(i, 2), Cells(i, 11)).Interior.Color = RGB(180, 230, 250) ' toute ligne en bleu
For j = 2 To 12 Step 2 ' une colonne sur deux
Cells(i, j) = Cells(i, j + 1): Cells(i, j + 1) = "" ' transfert cellule et effacement Col+1
Cells(i, j).Interior.Color = RGB(255, 0, 0) ' cellule en rouge
Cells(i, j).Font.Color = RGB(0, 0, 0) ' police en noir
Next j
Next i
End Sub