Impression Feuilles

Private Sub Worksheet_Activate()
Cells.Clear
Sheets("classement general").Range("A2:l4").Copy
ActiveSheet.Paste Destination:=Worksheets("IMPRIM").Range("A1")
derLig = Sheets("classement general").Range("A" & Cells.Rows.Count).End(xlUp).Row
lig = 3
For i = 4 To derLig
If Len(Sheets("classement general").Cells(i, 3).Value) > 0 Then
If Sheets("classement general").Cells(i, 3).Value <> "NOM" Then
With Worksheets("classement general")
.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

Cliquez pour agrandir...