Sub Exporter()
Application.ScreenUpdating = False
For L = 2 To [A1000].End(xlUp).Row ' Pour toutes les lignes
For C = 7 To 20 ' De la colonne G à T
If LCase(Cells(L, C)) = "x" Then ' Si l'atelier est concerné
Nom = Cells(L, "A") ' On récupère le nom
Feuille = Cells(1, C) ' et le nom de l'activité
With Sheets(Feuille) ' Avec la feuille correspondante à l'atelier
If Application.CountIf(.[C:C], Nom) = 0 Then ' Si le nom n'existe pas dans la feuille
PL = .[C65500].End(xlUp).Row + 1 ' Première ligne où écrire
For Colonne = 1 To 5 ' On recopie les 5 valeurs
.Cells(PL, Colonne + 2) = Cells(L, Colonne)
Next
End If
End With
End If
Next C
Next L
End Sub