selection cellules

Bonjour Fmadinina et toi le forum,

Voici la procédure qui te permettra de selectionner les 4 dernières cellules d'une colonne (ici colonne A)...

Sub Selectionner()
' Vériland Octobre 2003
' sélectionner les 4 dernières valeur
' de la colonne A
Dim DerLig As Long
DerLig = Range("A65536").End(xlUp).Row
Range("A" & DerLig & ":A" & DerLig - 3).Select
End Sub

Bon là j'suis parti plus loin dans la logique de sélection et je te propose une suite...mais cette fois-ci on copie les 4 dernières cellules d'une colonne (toujours colonne A) et on colle à H2...

Sub CopierColler()
' Vériland Octobre 2003
' copier les 4 dernières valeur
' de la colonne A
' et colle vers B2
Dim DerLig As Long
DerLig = Range("A65536").End(xlUp).Row
Range("A" & DerLig & ":A" & DerLig - 3).Copy [H2]
End Sub

après pour le calcul c'est autre chose...j'sais pas si c'est ce que tu veux mais voilà ce à quoi je pensais...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

j'me suis trompé de bouton...lol

Merci, c'est exactement ce que je voulais