Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Lorsqu'on clique sur une cellule
Dim xlgn As Long
If Target.Column = 2 Then
'Vérifie si collègue dans la ligne
xlgn = Target.Row
If ActiveSheet.Cells(xlgn, 5) < "01/01/1900" Then
MsgBox "Aucun collègue ne figure sur cette ligne.", vbInformation, "COMPTES-TITRES"
Exit Sub
End If
'Boite de dialogue de confirmation d'archivage
If MsgBox("Voulez-vous archiver ?" & vbNewLine & "Cela effacera la ligne sélectionnée !", vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then Exit Sub
'Deuxième confirmation d'archivage
If MsgBox("Etes-vous certain ? ?", vbExclamation + vbYesNo, "CONFIRMATION 2") = vbNo Then Exit Sub
'Vider la ligne en gardant les formules, la couper et la coller au bas.
Range("C" & xlgn & ":ZZ" & xlgn).SpecialCells(xlCellTypeConstants, 23).ClearContents
'Couper la ligne en question et la coller à autre endroit
Rows("3:xlgn ").Cut
'Rows("4:4").Insert
End If
End Sub