Bonsoir
pour suivre ton raisonnement essai ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Row
Case 7, 12, 17
If IsDate(Target.Offset(-1, 0)) Then [A1] = Target.Offset(-1).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-1, -1)) Then [A1] = Target.Offset(-1, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value
Case 8, 13, 18
If IsDate(Target.Offset(-2, 0)) Then [A1] = Target.Offset(-2).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-2, -1)) Then [A1] = Target.Offset(-2, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value
Case 9, 14, 19
If IsDate(Target.Offset(-3, 0)) Then [A1] = Target.Offset(-3).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-3, -1)) Then [A1] = Target.Offset(-3, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value
Case 10, 15, 20
If IsDate(Target.Offset(-4, 0)) Then [A1] = Target.Offset(-4).Value: [A2] = Cells(Target.Row, 1).Value: [A3] = Cells(4, Target.Column).Value
If IsDate(Target.Offset(-4, -1)) Then [A1] = Target.Offset(-4, -1).Value: [A2] = Cells(Target.Row, 2).Value: [A3] = Cells(4, Target.Column).Value
Case Else
End Select
End Sub