For N°ligne = 1 To 272
If Sheets("annuel").Cells(N°ligne, 1) = Matricule Then
'Envoit la ligne en archive
Rows(N°ligne).Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Archive comp").Select
Rows("18:18").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
'Supprime la ligne de annuel
Sheets("Annuel").Select
Rows(N°ligne).Select
Selection.Delete Shift:=xlUp
Call réparation
End If
Next