Transfert format d'un onglet source vers plus de 50 onglets...

If Not trouve Is Nothing Then

Sub Mise_a_jour_modification_vers_onglet()

'Mise au point par Skoobi, et Job 75 avec la participation de Urdi

Dim j As Integer
j = 4 ' n° de la ligne où va commencer le traitement

For Each Target In Range("B11:B28") 'liste source ici B11:B21


    For i = 2 To Sheets.Count 'plage d'onglet modifié (ici de 2 à total d'onglet)
        
        With Sheets(i) 'pour chaque onglet (compris entre 2 et le dernier onglet)
           Set trouve = Sheets(i).Cells(j, 2) 'j et 2 étant les coordonnées de la première cellule à traiter
             With trouve.Resize(1, 22).Font '1 et 22 définisse la longueur de la ligne à réctifier (soit 1 cellule épaisseur et 22 cellules de long)
               .Name = Target.Font.Name
               .FontStyle = Target.Font.FontStyle
               .Size = Target.Font.Size
               .ColorIndex = Target.Font.ColorIndex
             End With
           trouve.Resize(1, 22).Interior.ColorIndex = Target.Interior.ColorIndex '1 et 22 idem
        End With
        
    Next
    
    j = j + 1 'on ajoute 1 à la ligne (2 si vous souhaiter traiter une ligne sur deux)
  
Next

End Sub