Problème ajustement hauteur de cellule automatique

Private Sub Worksheet_Calculate()
Me.Unprotect "JOB75" 'mot de passe
Rows("15:" & Rows.Count).AutoFit 'ajustement automatique
Me.Protect "JOB75"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect([A15:A28], Target) Is Nothing And Target.Count = 1 Then
       If Target <> "" Then
        Target.Offset(, 1) = Application.VLookup(Target, [tableau1], 2, False)      ' = Article
        Target.Offset(, 3) = Application.VLookup(Target, [tableau1], 3, False)      '= Unité
        Target.Offset(, 4) = Application.VLookup(Target, [tableau1], 4, False)      '= Prix unitaire
        Target.Offset(, 5) = Application.VLookup(Target, [tableau1], 5, False)        '= TVA

        Target.Resize(1, 7).VerticalAlignment = xlTop
        Target.EntireRow.WrapText = True        'Renvoyer a la ligne automatiquement
        
        Else
        Target.Resize(1, 7).ClearContents
        
      End If
   End If
      If Not Intersect([C15:C28], Target) Is Nothing And Target.Count = 1 Then
            If IsNumeric(Target) Then
                'code pour mettre la formule dans la colonne G
                Target.Offset(, 4).FormulaR1C1 = "=IF(OR(RC3="""",RC5=""""),"""",ROUND((RC3*RC5)*100/5,)/20)"
                Target.Offset(, 4).Font.Bold = True
                'Désactiver le code ci-dessous pour que la formule apparaisse
                Target.Offset(, 4).Value = Target.Offset(, 4).Value
            Else
                Target.Offset(, 4).Value = ""
            End If
        End If
End Sub