SOS problème Excel retour à la ligne automati

Bonjour,
Voila je vous expose mon problème je bosse dans une entreprise ou quelque fois je dois faire des métré, pour cela j'utilise un fichier type Excel
ce fichier j'ai voulu rajouter des feuille pour faire des tableaux mais
j'ai un problème
sur ma feuille HA j'ai un retour a la ligne lorsque j'arrive en cellule F la tout va bien
mais par contre sur la nouvelle feuille que je créer il y est toujours et la ça me m'embête

j'ai vu qui il y avait des macro d'enregistrer ainsi qu'un programme en VBA mais je n y comprend rien

je voudrai que ce retour à la ligne marche que pour la feuille HA

voici le programme que j'ai trouver

Public Function Coeff(Col As Range, Ind As Integer) As Integer
While (Col.Cells(Ind) = Empty)
Ind = Ind - 1
Wend
Coeff = Col.Cells(Ind).Value
End Function

voici les macros

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/10/2001 par Frédéric Bron
'

'
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 24/10/2001 par Frédéric Bron
'

'
Selection.Copy
Range("F16").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("N15").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Range("N16").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 24/10/2001 par Frédéric Bron
'

'
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 24/10/2001 par Frédéric Bron
'

'
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 24/10/2001 par Frédéric Bron
'

'
Application.CutCopyMode = False
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

je sais que c'est long à regarder mais si quelqu'un pourrai m'aider ça m'aiderai beaucoup

Merci