Appliquer des formules d'une colonnes sur d'autres colonnes

Bonjour,

Je cherche une macro pour appliquer des formules d'une colonnes sur l'ensembles des colonnes d'une plage sans écraser les données fixes des autres colonnes.

je met le tableau en pièces jointes , les formules de la colonnes D a appliquer sur les autres colonnes sont colorer.

Je vous remercier pour votre aide.

bonjour,

une proposition

Sub aargh()
    With Sheets("CEG MENSUALISE")
        dl = .Cells(Rows.Count, 2).End(xlUp).Row
        dc = .Range("BN1").Column 'dernière colonne vers laquelle copier la formule
        Set rf = Nothing 'rf sélection des colonnes vers lesquelles il faut copier la formule, on exclut les colonnes dont l'entête commence par Var
        For i = 5 To dc
            If Left(.Cells(11, i), 3) <> "Var" Then
                If rf Is Nothing Then Set rf = .Cells(11, i) Else Set rf = Union(rf, .Cells(11, i))
            End If
        Next i

        For i = 13 To dl 'on copie les formules pour les lignes marqués en rose
            If .Cells(i, 4).Interior.Color = 11389944 Then
                .Cells(i, 4).Copy
                rf.Offset(i - 11, 0).PasteSpecial xlPasteFormulas
            End If
        Next i
    End With
End Sub

Ça marche , Merci pour votre aide