' ecrire la valeur de l'entête
Sheets(nomfeuille1).Range(colonne1a & dl1) = .Cells(1, Target.Column)
'CA colonne B
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 1) = .Range("B" & Target.Row) ' & Chr(10) & .Range("c" & Target.Row)
'TA colonne C
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 2) = .Range("D" & Target.Row)
'colonnes D et E
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 3) = .Range("E" & Target.Row)
Sheets(nomfeuille1).Range(colonne1a & dl1).Offset(0, 4) = .Range("H" & Target.Row)