VBA Copier coller la derniere valeur

Bonjour

Je voulais savoir si il est possible de chercher dans une colonne les cellules contenant un nombre puis de copier la valeur de la dernière cellule trouvée dans une cellule d'une autre feuille du classeur.

En espérant avoir été assez clair.

Merci par avance pour votre aide.

Salut,

Cette macro devrait faire l'affaire

Sub aa()

Range("A" & Rows.Count).End(xlUp).Activate

Do Until WorksheetFunction.IsNumber(ActiveCell.Value) = True
    ActiveCell.Offset(-1, 0).Activate
Loop

Sheets("Feuil2").Range("A1") = ActiveCell

End Sub

Cordialement.

Merci pour votre réponse cela fonctionne parfaitement.

J'ai oublié de demander au départ si il était également possible que cette fonction se lance sans passer par un bouton mais que cela se mette à jour par exemple au moment ou je passe sur la feuille 2.

Merci

Salut,

Dans le fichier ci-joint, à chaque fois que tu sélectionnes la feuille 2, le résultat est actualisé dans la cellule A1 grâce au code placé dans la feuille :

Private Sub Worksheet_Activate()
Dim DerLig As Integer, i As Integer

With Sheets("Feui1")
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    For i = DerLig To 1 Step -1
        If WorksheetFunction.IsNumber(.Cells(i, 1)) = True Then
            Range("A1") = .Cells(i, 1)
            Exit Sub
        End If
    Next
End With

End Sub

Amicalement.

Merci beaucoup pour votre aide précieuse