bonjour,
Sorry, je n'étais pas trop disponible hier...
Je t'ai pondu une macro qui fait ce que tu demandes pour ton classeur démo :
C'est à dire qu'après il faut adapter à la réalité...
La macro :
Sub test()
i = 1
For Each o In Range("A7:A48")
If o = i Then
If o.Offset(1).Value = i + 10 Then
o.Offset(0, 1).Value = o.Offset(1).Value
Rows(o.Offset(1).Row).Delete
i = i + 1
End If
End If
Next
End Sub
Cette macro postule qu'on travaille sur la zone A7:A48
et qu'on démarre avec la valeur 1 en A7 (i = 1)
Ensuite elle reporte le nombre de la ligne suivante s'il est égal à i + 10
Dans ce contexte je pense qu'un raccourci est inutile car il faut bricoler à chaque fois la macro si la plage change...
Donc après s'être assuré que "la bonne feuille" est bien sélectionné YAKA coller la macro dans le module de cette feuille (ou dans Module1); faire F5 et le tour est joué...
Bon, pour plus d'explication poser les questions au fur et à mesure... hein !
A+