Private Sub Worksheet_Activate()
Cells.Clear
Sheets("carabine10").Range("A3:l4").Copy
ActiveSheet.Paste Destination:=Worksheets("IMPRIM").Range("A20")
derlig = Sheets("carabine10").Range("A" & Cells.Rows.Count).End(xlUp).Row
lig = 21
For i = 5 To derlig
If Len(Sheets("carabine10").Cells(i, 3).Value) > 0 Then
If Sheets("carabine10").Cells(i, 3).Value <> "NOM" Then
With Worksheets("carabine10")
.Range(.Cells(i, 1), .Cells(i, 12)).Copy
End With
ActiveSheet.Paste Destination:=Worksheets("IMPRIM").Cells(lig, 1)
lig = lig + 1
End If
End If
Next
End Sub