Sélectionner la dernière ligne avec données dans un feuille

Bonjour,

Pourriez vous m'aider à faire un code pour la réalisation suivante :

- Sélectionner dans la dernière ligne avec des données, dans une feuille qui se nomme "Liste PDI", la plage de cellule A:F

- Ensuite lors que la plage de ces 5 cellules est sélectionnées, faire l'action "Fusionner cellules".

MERCI

Bonjour,

Sub Macro1()
Set sh = Sheets("Liste PDI")
lastRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
With sh.Range("A" & lastRow & ":F" & lastRow)
.Merge
End With
End Sub

Bonjour,

Sub Fusion()
    Application.DisplayAlerts = False
    With Worksheets("Liste PDI")
        .Cells(.Rows.Count, 1).End(xlUp).Resize(, 6).Merge
    End With
End Sub

Cordialement.

Bonjour,

C'est bien ce que je rechercHe.

MERCI