Insérer une ligne à droite de la cellule active idem colonne

Bonjour Raja et merci pour l'aide OK marche pour ligne et colonne, mais sur ma feuille " Référence " j'ai une colonne qui sincère ?

Bonsoir,

Essaye le fichier suivant rectifié :

Bonsoir et merci beaucoup Raja marche nickel

Bonsoir Raja je voulais juste te demander si à la place de copiée je pouvais donnée un champ de A4:T4 par exemple merci

Sub Insertion()
    Ligne = ActiveCell.Row 'recupère le numéro ligne de la cellule active
    Colonne = Ligne
    Sheets("Référence").Rows(Ligne).Copy
    Sheets("Référence").Rows(Ligne + 1).Insert Shift:=xlUp
    derCol = Sheets("Référence").Cells(4, Columns.Count).End(xlToLeft).Column + 1
    For i = 2 To derCol
        If Not Sheets("Référence").Cells(Ligne + 1, i).HasFormula Then
            Sheets("Référence").Cells(Ligne + 1, i).ClearContents
        End If
    Next i
    Sheets("Total").Columns(Colonne).Copy
    Sheets("Total").Columns(Colonne + 1).Insert Shift:=xlToRight
    derLig = Sheets("Total").Range("A" & Rows.Count).End(xlUp).Row + 1
    For i = 2 To derLig
        If Not Sheets("Total").Cells(i, Ligne).HasFormula Then
            Sheets("Total").Cells(i, Ligne).ClearContents
        End If
    Next i
    Application.CutCopyMode = False
End Sub