Private Sub Worksheet_Activate()
copie = 1
While copie < 3
Dim Plage As Range, cel As Range
Dim i As Integer, j As Integer
i = 1
j = 0
For Each cel In Sheets("HideQualiCI1").Range("L5:L24") '
a = cel.Value
If cel.Value <> "" Then
j = j + 1
If j < 2 Then
Set Plage = cel
Else
Set Plage = Union(Plage, cel)
End If
End If
Next
Plage.Copy
Sheets("QualiteCI1").Range("B5:B24").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
copie = copie + 1
Wend
End Sub