[COLOR="DarkSlateGray"][B] For m = Range("B500").End(xlUp).Row To 2 Step -1
[COLOR="Red"]Sheets("CamSH").Activate[/COLOR]
If Range("I" & m) = True Then Range("A[COLOR="Red"]" & m & "[/COLOR]:F" & m).Activate
Sheets("Histo").Activate
Range("A2").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
[COLOR="Red"]Sheets("CamSH").Activate[/COLOR]
Selection.Copy
[COLOR="Red"]Sheets("Histo").Activate[/COLOR]
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False[/B][/COLOR]