Fusionner dernieres cellules d'une colonne

[goby45]

Re-Bonjour à tous,
J'ai un nouveau problème:
Je souhaiterais fusionner les quatre dernieres cellules d'une colonne (A par exemple) avec un bouton systeme mais je ne vois pas comment faire...

J'essaie ça :

Private Sub CommandButton7_Click()
Dim Derlig As Long
 
Derlig = ActiveCell.Range("A1").End(xlDown).Row
Range(Cells(1, Derlig), Cells(1, Derlig - 3)).Merge
End Sub
 

Merci de votre aide

[mercatog]

Private Sub CommandButton7_Click()
Dim Derlig As Long
 
Derlig = cells(rows.count,1).End(xlup).Row
Range(Cells(Derlig,1), Cells(Derlig - 3,1)).Merge  'cells(i,j) i ligne, j colonne
End Sub

mais tes 4 dernières cellules de ta colonne A contiennent des données!

[goby45]

Non seulement les 3 dernieres !
Je te remercie, c'est exactement ce que je voulais

[goby45]

Je voulais dire que mes 3 dernieres cellules de ma colonne sont vides, mais je me suis mal exprilmé...