Création formule nouvelle ligne

Hello

J'ai besoin de créer cette formule que je vous ai mis en "Français"

Sub creationcode()

Sheets("Absences").Activate

sélectionner la ligne selon la valeur de la case D33+1 de la feuille "paramètres"
Insérer ligne
Rentrer dans la colonne 1 de cette nouvelle ligne la valeur le cellule C1 de la feuille "paramètres"
Rentrer dans la colonne 2 de cette nouvelle ligne la valeur le cellule C2 de la feuille "paramètres" etc... jusuq'à la colonne AC et la cellule C29.

Sheets("Paramètres").Activate
End Sub

J'avoue ne pas y arriver… surtout dans la sélection de cette nouvelle ligne.

Arg je réalise une faille… Ca marche pour une première ligne mais après ca va tout décaler… du coup mon besoin c'est plutôt :

Sub creationcode()

Sheets("Absences").Activate

sélectionner la celllule de la colonne A qui contient la valeur de la case D33 la feuille "paramètres"
Insérer ligne
Rentrer dans la colonne 1 de cette nouvelle ligne la valeur le cellule C1 de la feuille "paramètres"
Rentrer dans la colonne 2 de cette nouvelle ligne la valeur le cellule C2 de la feuille "paramètres" etc... jusuq'à la colonne AC et la cellule C29.

Sheets("Paramètres").Activate
End Sub

Du coup, c'est trop compliqué… je laisse tomber par ce moyen.