Probleme en vba pour trouver dernière cellule remplie d'une ligne

Sub test()
With ActiveSheet
m = "Colonne: " & .Cells(1, .Columns.Count).End(xlToLeft).Column & Chr(13)
m = m & "Adresse cellule: " & .Cells(1, .Columns.Count).End(xlToLeft).Address(0, 0)
End With
MsgBox m, vbInformation, "Test"
End Sub

Sub DerCol()
Dim i As Integer
With Feuil1.UsedRange.Rows(1)
    For i = .Columns.Count To 1 Step -1
        If .Cells(i) <> "" Then
            MsgBox "Dernière valeur non vide : " & .Cells(i) & " dans " & .Cells(i).Address(0, 0)
            Exit Sub
        End If
    Next
End With
MsgBox "Toutes les cellules sont vides ou contiennent le texte vide """"..."
End Sub

Sub test_2()
MsgBox Range("A1").Address(RowAbsolute = 1, columnAbsolute = 1, xlA1), vbExclamation
'qui peut se résumer en:
MsgBox Range("A1").Address(0, 0, xlA1), vbInformation
'ou encore en
MsgBox [A1].Address(0, 0), vbMsgBoxRight
End Sub

Sub DerCol()
Dim i As Integer
With Feuil1.UsedRange.Rows(1)
    i = Evaluate("MAX((" & .Address & "<>"""")*COLUMN(" & .Address & "))")
    If i Then MsgBox "Dernière valeur non vide : " & .Cells(i) & " dans " & .Cells(i).Address(0, 0) _
        Else MsgBox "Toutes les cellules sont vides ou contiennent le texte vide """"..."
End With
End Sub