bonjour Ericcool02, M12, Oceanina, le fil,
je pense qu(il faut utiliser la colonne C
Private Sub Workbook_Open()
With Sheets("Tableau Base") 'la feuille
r = .Range("C" & Rows.Count).End(xlUp).Row 'dernière ligne en colonne C (date commande)
Application.Goto .Cells(Application.Max(1, r - 10), "A"), 1 'cellule en haut & à gauche = 10 lignes plus haut
Application.Goto .Cells(r + 1, "F"), 0 'la ligne suivante
End With
End Sub