ActiveCell.EntireRow.Select
Selection.Insert Shift:=xltoDown

Range("A9:AK9").Copy
Range("A8:AK8").Select
Selection.PasteSpecial Paste:=xlPasteFormulas
Selection.PasteSpecial Paste:=xlPasteFormats

Range("C10").Copy
Range("C8:C9").Select
Selection.PasteSpecial Paste:=xlPasteFormulas

Range("H9:AK9").Copy
Range("H8:AK8").Select
Selection.PasteSpecial Paste:=xlPasteAll

nomCM = Empty
CXinitial = Empty
resteCX = Empty
CCselect = Empty
C4initial = Empty
resteC4 = Empty
compteurCT = Empty

Range("A8").Activate
ActiveCell.RowHeight = 18.6

For i = 2 To ThisWorkbook.Sheets.Count

With Sheets(i).Select

emptyrow = Range("A9").End(xlDown).Offset(0, 2).Row
Range("A9:AL" & emptyrow).Sort _
Key1:=Range("A9"), Order1:=xlAscending

Set SearchRange = Range("A8", Range("A200").End(xlUp))
Set FindRow = SearchRange.Find(nomCM, LookIn:=xlValues, LookAt:=xlWhole)
Range("A" & FindRow.Row).Select
ActiveCell.EntireRow.Activate

End With

Next i

Sheet2.Select

End
End Sub