mohamed

Sub PasserALaCelluleSuivante()
    Dim celluleActuelle As Range
    Dim feuille As Worksheet
    
    ' Spécifie la feuille de travail
    Set feuille = ThisWorkbook.Sheets("NomDeVotreFeuille")
    
    ' Spécifie la cellule actuelle (B10 au début)
    Set celluleActuelle = feuille.Range("B10")
    
    ' Vérifie si la cellule actuelle est vide
    Do While celluleActuelle.Value <> ""
        ' Si la cellule actuelle n'est pas vide, passe à la cellule en dessous
        Set celluleActuelle = celluleActuelle.Offset(1, 0)
    Loop
    
    ' Place la valeur de la cellule B12 dans la première cellule vide trouvée
    celluleActuelle.Value = feuille.Range("B12").Value
End Sub