Numéro de colonne première cellule non vide d'une ligne

Bonjour,
J'ai des tableaux avec des livraisons par produit (lignes) et par semaine (colonne), et je dois afficher dans une colonne la semaine de première livraison de chaque produit, c'est à dire la première cellule non vide dans chaque ligne.

Voici une fonction perso dans vba que j'ai testée mais qui ne fonctionne pas.. :

Function semdeb(a As Integer, b As Integer) As Integer
'
Dim i As Integer
'
    Range(Cells(a, b)).Select
    Selection.End(xlToRight).Select
    i = ActiveCell.Column
    Range(Cells(1, i)).Select
    semdeb = ActiveCell.Value
    
End Function

Merci!

EDIT: Ajout de la coloration syntaxique.