Modification colonne

Bonjour a tous !

Ici quand je clique sur le bouton donc le code est en dessous, il se créer des onglet en fontion de leur nom de fonction !! donc çi dans la colonne B il y a 3 ligne avec comme fonction " production" et " tourisme" alors il va se crée deux onglet qui vont prendre les ligne correspondante et qui ont pour nom " production" et l'autre "tourisme"

Maintenant j'aimerai avoir exactement la meme chose mais pas avec ma colonne B (fonction) mais en fonction de ma colonne C ( nom) donc cela devra créer des onglets et qui ont pour nom d'onglet les "nom" et non plus les "fonction"

Cordialement

Option Explicit

Sub Recopie()
Dim J As Long, Ligne As Long, I As Integer
Dim F1 As Worksheet, F2 As Worksheet

  Application.ScreenUpdating = False
  Set F1 = Sheets("Feuil1")
  Set F2 = Sheets("Feuil2")

  Application.DisplayAlerts = False
  For I = Sheets.Count To 5 Step -1
    Sheets(I).Delete
  Next I
  Application.DisplayAlerts = True

  For J = 6 To F1.Range("B" & Rows.Count).End(xlUp).Row
    If FeuilleExiste(F1.Range("B" & J).Value) = False Then
      Sheets.Add(after:=Sheets(Sheets.Count)).Name = F1.Range("B" & J).Value
      For I = 1 To 12
        Cells(2, 20 + (I * 2)) = MonthName(I)
      Next I
    End If
    With Sheets(F1.Range("B" & J).Value)
      Ligne = .Range("J" & Rows.Count).End(xlUp).Row + 3
      F1.Rows(J).Copy .Range("A" & Ligne)
      For I = 1 To 12
        .Cells(Ligne + 1, 20 + (I * 2)) = F2.Cells(J, 69 + I)
      Next I
      .Columns("A").Hidden = True
      .Columns("C:I").Hidden = True
      .Columns("K:U").Hidden = True
      .Columns("C:I").Hidden = True
      .Columns("AT:BO").Hidden = True
    End With
  Next J
End Sub

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Bonjour

Dans la macro remplaces tous les "B" par "C" (si j'ai bien compté : 4)