Sub Matin_et_midi()
' Matin_et_midi Macro
Application.ScreenUpdating = False
Sheets("Etat initial").Select
Dim i, j As Byte
For i = 3 To 29
For j = 2 To 112 Step 2
Range(Cells(i, j), Cells(i, (j + 1))).MergeCells = True
Next 'i
Next 'j
Range("A1:A2").Select
Sheets("Paramètres").Select
Range("E43").Select
Application.ScreenUpdating = True
End Sub