XL 2016 Boucle pour ajouter des colonnes à un onglet

For Each Fiche_Fournisseur In Worksheets

'On met des exceptions sur les feuilles qui doivent rester intactes
If Fiche_Fournisseur = "SQL" Or .....

For Each Fiche_Fournisseur In Worksheets

'On met des exceptions sur les feuilles qui doivent rester intactes
If Fiche_Fournisseur.name= "SQL" Or .....

Sub EffaceFournisseurs()
For Each Fiche_Fournisseur In Worksheets
    'On met des exceptions sur les feuilles qui doivent rester intactes
    If Fiche_Fournisseur.Name <> "SQL" And Fiche_Fournisseur.Name <> "Infos" And Fiche_Fournisseur.Name <> "Assistant" And Fiche_Fournisseur.Name <> "Suivi_AR" And Fiche_Fournisseur.Name <> "Modèle" And Fiche_Fournisseur.Name <> "Suivi_BL" And Fiche_Fournisseur.Name <> "!" Then
        'Je supprime toutes les données des fiches pour faire place aux nouvelles
        Sheets(Fiche_Fournisseur.Name).Range("C4:S254").ClearContents
    End If
Next Fiche_Fournisseur

End Sub

Sub Maj()

'On définit le type des variables
Dim Fiche_Fournisseur As Worksheet
Dim maPlage As Range
Dim DernLigne As Long, DernColonne As Integer

EffaceFournisseurs 'on appelle la macro pour effacer les feuilles existantes

With Sheets("SQL")
    'dernière ligne colonne A
    DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
    'dernière colonne ligne 1
    DernColonne = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column - 12 'pourquoi moins 12 ?

    'Je filtre les commandes et non les BL
    .Range("A1").AutoFilter field:=4, Criteria1:="BCF"

    Set maPlage = .Range("A2").Resize(DernLigne, DernColonne).SpecialCells(xlVisible)
   
    maPlage.Select
    'MsgBox maPlage.Rows.Count
End With
'boucle sur les fournisseurs colonne C
For Each Fournisseur In maPlage.Columns(3)
    MsgBox Fournisseur
    Fournisseur = WorksheetFunction.Substitute(Fournisseur, "9", "") 'on supprime le 9 en début
    Fournisseur = WorksheetFunction.Substitute(Fournisseur, "0", "") 'on supprime les 0 de fin
    DéjàCréé = False
    For Each ws In Sheets 'on cherche si le fournisseur existe déjà
        If ws.Name = Fournisseur Then
            DéjàCréé = True
            Exit For
        End If
    Next ws
    If DéjàCréé = False Then 'la feuille n'existe pas, on la crée donc en copiant la feuille Modèle
        Sheets("Modèle").Copy after:=Sheets("Modèle")
        Sheets("Modèle (2)").Name = Fournisseur 'et on lui donne le nom
    End If
    'on peut maintenant mettre à jour les data
   
Next Fournisseur



End Sub

Sub Maj()

'On définit le type des variables
Dim Fiche_Fournisseur As Worksheet
Dim maPlage As Range
Dim DernLigne As Long, DernColonne As Integer

EffaceFournisseurs 'on appelle la macro pour effacer les feuilles existantes

With Sheets("SQL")
    .Activate
    'dernière ligne colonne A
    DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
    'dernière colonne ligne 1
    DernColonne = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column '-12 -->pourquoi moins 12 ?

    'Je filtre les commandes et non les BL
    .Range("A1").AutoFilter field:=4, Criteria1:="BCF"

    Set maPlage = .Range("A2").Resize(DernLigne, DernColonne).SpecialCells(xlVisible)
   
    maPlage.Select
    'MsgBox maPlage.Rows.Count
End With
'boucle sur les fournisseurs colonne C
For Each Fournisseur In maPlage.Columns(3)
    'MsgBox Fournisseur
    'on doit créer une nouvelle plage qui contient toutes les lignes du meme fournisseur
    '-->trouver un moyen de détecter s'il a déjà été traité.
   
    Fournisseur = WorksheetFunction.Substitute(Fournisseur, "9", "") 'on supprime le 9 en début
    Fournisseur = WorksheetFunction.Substitute(Fournisseur, "0", "") 'on supprime les 0 de fin
    DéjàCréé = False
    For Each ws In Sheets 'on cherche si le fournisseur existe déjà
        If ws.Name = Fournisseur Then
            DéjàCréé = True
            Exit For
        End If
    Next ws
    If DéjàCréé = False Then 'la feuille n'existe pas, on la crée donc en copiant la feuille Modèle
        Sheets("Modèle").Copy after:=Sheets("Modèle")
        Sheets("Modèle (2)").Name = Fournisseur 'et on lui donne le nom
    End If
    'on peut maintenant mettre à jour les data
   
        'For j = 1 To maNewPlage.Rows.Count 'au cas où le fournisseur existe plusieurs fois
        With Sheets(Fournisseur)
            .Range("C" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 4)
            .Range("E" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 7)
            .Range("F" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 8)
            .Range("G" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 9)
            .Range("I" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 10)
            .Range("H" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 11)
            .Range("J" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 13)
            .Range("K" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 15)
            .Range("L" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 17)
            .Range("D" & .Rows.Count).End(xlUp).Offset(1, 0) = maPlage.Item(1, 18)
        End With
        'Next j
Next Fournisseur
End Sub

Sub MajListeFournisseurs()
'liste tous les onglets fournisseurs dans la colonne A de la feuille "Infos"

'on efface toute la colonne A de la feuille Infos?
'ou alors, on ajoute uniquement s'il est absent??

For Each Fiche_Fournisseur In Worksheets
    'On met des exceptions sur les feuilles qui doivent rester intactes
    If Fiche_Fournisseur.Name <> "SQL" And Fiche_Fournisseur.Name <> "Infos" And Fiche_Fournisseur.Name <> "Assistant" And Fiche_Fournisseur.Name <> "Suivi_AR" And Fiche_Fournisseur.Name <> "Modèle" And Fiche_Fournisseur.Name <> "Suivi_BL" And Fiche_Fournisseur.Name <> "!" And Fiche_Fournisseur.Name <> "ResultFiltre" Then
        With Sheets("Infos")
            Set trouvé = .Range("A3:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Find(Fiche_Fournisseur.Name)
            If trouvé Is Nothing Then 'si nouveau fournisseur: on l'ajoute en bas
                .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = Fiche_Fournisseur.Name
                'tri??
                fin = .Range("A" & .Rows.Count).End(xlUp).Row
                .Sort.SortFields.Clear  'on supprime les tris actifs
                .Sort.SortFields.Add Key:=Range("A3:A" & fin), _
                SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                With .Sort
                    .SetRange Range("A2:N" & fin)
                    .Header = xlYes
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
            End If
        End With
    End If
Next Fiche_Fournisseur
End Sub

With Sheets(fournisseur)
   ....
  .Range("F2")=ournisseur
end with