Il y a beaucoup de choses que je ne comprends pas. Est-ce que tu veux copier la feuille A sur l'autre feuille?? Si non, pourquoi inserer des formules SOMME dans des colonnes contenant du texte?? . Ici par exemple
Range("d2:j2").FormulaR1C1 = "=SUM(R[1]C:R[5000]C)"
Range("d2:j2").Value = Range("d2:j2").Value
De cette façon tu n'auras que les valeurs et non la formule.
Pour sélectionner la dernière cellule vide
VB:
With Sheets("A")
derlig = .Range("m" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
If .Range("m" & i) <> "" Then _
Application.Goto .Range("m" & i + 1)
Next i
End With