Sub Copy_Comp()
Dim NC As String, FB As String, dl As Integer, i As Integer, j As Integer, NbF As Integer, Feuille_Existe As Boolean, Nbl As Integer
FB = ActiveSheet.Name
Feuille_Existe = False
NC = ""
Nbl = [A65536].End(xlUp).Row
For i = 2 To Nbl
NbF = Sheets.Count
For j = 1 To NbF
If Sheets(j).Name = Cells(i, 1) Then
Feuille_Existe = True
Exit For
Else
Feuille_Existe = False
End If
Next
NC = Cells(i, 1)
If Not Feuille_Existe Then
Sheets.Add After:=Sheets(NbF)
ActiveSheet.Name = NC
Sheets(FB).Range("A1:Z1").Copy
Sheets(NC).Select
ActiveSheet.Paste
Sheets(FB).Select
Feuille_Existe = False
End If
Range("A" & i & ":Z" & i).Copy
Sheets(NC).Select
[A65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Sheets(FB).Select
Next
End Sub