Dim cell_nom_CMR As Range, lg_CMR As Integer
Set cell_nom_CMR = Columns("K").Find("CMR", , , , , xlPrevious)
lg_CMR = Columns("K").Find(cell_nom_CMR).Row
MsgBox "le cmr est en cellule" & lg_CMR
Worksheets("recap").Range(Cells(lg_CMR, 10), Cells(lg_CMR, 23)).Copy
Worksheets("Feuil1").Cells(12, 1).PasteSpecial Paste:=xlPasteValues