Insérer un ligne avec un bouton.

Sub insererLigne()
Dim Fin, i As Long
Application.ScreenUpdating = False
'insère une ligne au début de chaque tableau: juste sous les lignes d'entete contenant "FOURNISSEURS"

    Fin = Range("B" & Rows.Count).End(xlUp).Row 'dernière ligne de la feuille
    For i = Fin To 8 Step -1 'on remonte jusqu'à la ligne 8
        If Range("B" & i) = "FOURNISSEURS" Then 'on a identifié une ligne d'entete
            Rows(i + 1).Copy 'on copie la première ligne SOUS Fournisseurs
            Rows(i + 1).Insert shift:=xlDown 'on la colle SOUS fournisseurs en décalant tout le reste vers le bas
            Rows(i + 1).ClearContents 'on vide le contenu de la nouvelle ligne
        End If
    Next i

Application.ScreenUpdating = True
End Sub