Private Sub Worksheet_Activate()
With Sheets("suivi")
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To derlig
If .Cells(i, 5) = "GS" And Application.CountIf([A:A], .Cells(i, 1)) = 0 Then .Cells(i, 1).Resize(1, 6).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next i
End With
End Sub