Bonjour,
Cette macro fait ce que tu demandes.
Sub Galopin()
Dim i%
Application.DisplayAlerts = False
Rows("110:111").Copy
Rows("112:112").Insert Shift:=xlDown
Range("A112:A113").ClearContents
For i = 6 To 164 Step 2
Range(Cells(112, i), Cells(112, i + 1)).ClearContents
Range(Cells(113, i), Cells(113, i + 1)).ClearContents
Next
End Sub
A+