Sub Demo()
If InStr(1, [J4].Value, "S4") Then
If MsgBox("Est-ce le même jour, la même date que pour la S3 (" & [K3].Value & ") ?", vbYesNo Or vbQuestion) = vbYes Then
If MsgBox("Souhaitez-vous reporter les données de la S3, tels que les élèves ""ABS, DECP3, de R1, R2 ou Décharge, SortP"" en S4 ?", vbYesNo Or vbQuestion) = vbYes Then [K:K].Value = [J:J].Value
End If
End If
End Sub