Bonjour angel121, le forum,
Pas sur d'avoir bien compris.....la macro se déclenche à l'activation de la feuille 2...
Private Sub Worksheet_Activate()
Dim i As Integer, dercol As Integer
Application.ScreenUpdating = False
dercol = 1
With Sheets("Feuil2")
.Cells.Delete: .Cells.Borders.LineStyle = xlNone
End With
With Sheets("Feuil1")
For i = 2 To 12
If .Cells(17, i) > 200 Then
.Cells(1, i).Copy: Sheets("Feuil2").Cells(1, dercol).PasteSpecial Paste:=xlPasteValues: Sheets("Feuil2").Cells(1, dercol).Borders.Weight = xlThin
.Cells(17, i).Copy: Sheets("Feuil2").Cells(2, dercol).PasteSpecial Paste:=xlPasteValues: Sheets("Feuil2").Cells(2, dercol).Borders.Weight = xlThin
dercol = dercol + 1
End If
Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Cordialement,